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TIPOSDEIMPRESSORA 



DESPEJO DE TELA 



PROGRAMACAO GRAFICA 



MONTAGEMDA TELA 



PROBLEMAS COM CORES 



Ao desligar o micro, os maravilhosos 
desenhos que voce criou na tela 
desaparecem sem deixar rastros. 
Com umas poucas linhas em BASIC, voce 
podera preserv^-los em papel 

A capacidade grafica dos micros per- 
mite a eIaborai;ao de varios tipos de gra- 
fico ou desenho no video, Quer voce es- 
teja interessado nas aplicagoes praticas 
desses graficos. quer seja um artista 
preacupado em adoiar um novo meio de 
expressao, as imagens produ^idas com 
a ajuda do compuiador apresenlam uma 
grande limitacao: existem apenas en- 
quanio a lela nao for apagada. Se voce 
quiser uma copia permanenle da ima- 
gem criada, precisard usar uma maqui- 
na folografica ou copiar a tela em uma 
impressora grifica. 

Para guardar uma listagem, uma lis- 
ts de numeros ou um lexto produzido 
pgr um programa, os usuario_s tambem 
tern que recorrcr a uma impressora. Ha, 
porem. uma crande dilerenca entre co- 
piar uma tela de lextos, escrilos em AS- 
CII padrao, e uma lela graHca, de bai- 
xa ou aha resolu*;ao. Com excegao dos 
microcomputadores da linha Sinclair 
(ZX-Sl e Spectrum), que possuem o co- 
mando COPY, os comandos de impres- 
sao do BASIC, coitio LPRINT, PR #1, 



PRINT ;^ -2 etc, funcionam apenas com 
caracleres ASCIL Alguns fabricantes 
oferecem impressoras que Icm o conjun- 
to ampliado dc caracteres. Este inclui os 
caracleres semigraficos^ [fpicos dos mi- 
cros TRS-80. TRS-Color, TK-2000 e 
MSX, mas ainda assim nao e suficienlc 
para copiar uma tela com graficos de 
media ou de alia rcsolugao, 

Como vimos em um anigo da se^rao 
Peri/ericos (pagina 648), existem dots 
modelos de impressora para micros: as 
impressoras de tipo formado (como as 
baseadas na "margarida"), eas impres- 
soras matriciais. Embora algumas im- 
pressoras margarida possam fazer gra- 
ficos composiosdepontos, ela.ssao mui- 
to lentas para ter alguma utilidade na 
copia freqiiente de telas graficas. 



As impressoras matriciais, por sua 
vcz, imprimem os caracteres utilizando 
um conjunlo de ponlos, num processo 
idenlico ao da Format^ao de caracleres 
na lela de video. O sinal eiiviado pelo 
computador a impressora aciona uma 
serie de pinos ou agulhas situados na ca- 
be<;a de impressao, dc modo a rcprodu- 
7AT um padrao de ponlos que compoe 
um determinado caraciere, 

Nas impressoras matriciais nao- 
grdficas (impressoras de lexio), os pa- 
droes formados para cada caraciere ja 
estao pr<^-programados em uma memo- 
ria ROM na impressora, e nao podem 
ser manipulados ou allcrados indivi- 
dualmenle, Nas impressoras matriciais 
graficas, porem, pode-se programar ca- 
da aguiha da cabega de impressao por 
meio de soflware, o que permiie a cla- 
bora^io de graficos de alta resoluir'ao. 



DESPEJO DE TELA 



Como funciona um programa desii- 
nado a copiar cada ponlinho de aita re- 




solui^ao de uma tela grafica? O coman- 
do COPY dos micros da linha Sinclair 
e urn bom cvemplo disso. Esse comau- 
do efetua uma opcra<;ao que chamamos 
despejo de fela (screen dump, em ingles). 

Com o micro acoplado a uma im- 
pressora adequada (propria para a linha 
Sinclair), o comando COPY "iraduz" 
as configura*;6es de pontinhos de cada 
seior da tela em padroes dc aiuagao das 
agulhas da cabc^a dc impressao. Desse 
modo, o conieudo da tela (lexto e/ou 
grafico) e fielmcnie reproduzido — me- 
nos a cor, evidenlemenic- 

Os sistemas operacionais de alguns 
micros (como o TRS-80) podem ler Tun- 
(;oes de despcjo de tela, que lambcm so 
atuam se uma impressora t;ompalive! es- 
tiver acoplada a maquina. O CP-5t)0 da 
Prologica, por excmplo. despeja a Ida 
semigrafica na impressora P'500S, 
quando as leclas J, K c L sao pressio- 
nadas sJmultan^:amenie no leclado. 

A maioria dos micros, porcm, iiao 
lem comandos ou funtoes. cspetiais pa- 
ra produzir despejos de lela, E mesmo 
que seu computador disponha desse^ re- 
cursos. lembrc-sede que eles nada pro- 
duzirao sem a impressora adequada- 



PROGRAMACAO DA IMPfiESSORA 



Nao e possivcl escrever na impresso- 
ra usando o mesmo melodo com o qual 
escrevemos na tela. Se dermos, por 
exeniplo. o comando: 

PRINT CHBSi255) 

no TRS'Color. urn bloco colorido sera 
exibido na lela (255 e o codigo do ca- 
ractere graHco correspondenlc). Em re- 
tanto* se voce lenlar fazer isso com a im- 
pressora, enviando o comando: 

PaXHT|-2,CHR$C255) 

nada aconiecera, pois a impressora in- 
lerpreiara o codigo 255 de modo loial- 
mente difercntc. Dizemos, por cssa ra- 
zao. que OS codigos de contro/e dos dois 
perifcricos. video e impressora, produ- 
zem eTeilos diferentes. 

Precisamos, assim. de um programa 
especial para efctuar o despejo de lela 
— um programa que prepare a impres- 
sora para receber graficosn Algiimas 
fun^poes aulomaiicas da impressora de- 
vem ser desligadas, eouiras, ligadas. E 
necessario acionar a cabe^a de impres- 
sao de Torma que as agulhas possam ser 
coniroladas individualmente. Alem dis- 
so, o avan90 horizontal e vertical da ca- 
be^a dc impressao precisa ser feilo em 
passes diminulos. sem deixar espagos 
enlre cada ponro impresso. 

As impressoras graficas podem ser 



programadas extcrnamente para efetuar 
as runt;oes mcncionadas. Nesse modo- 
grafk-o, e possivel aluar sobre grupos dc 
agulha.s usando codigos de oiio bits, A 
informa(;ao caplada na mcmoria de vi- 
deo e enviada para a impressora nao sob 
a forma de codigos ASCII, mas como 
cddigos binarios correspondenies ao pa- 
drao de ativagao das agulhas da cabe- 
(;a. Assim , existem codigos binarios pa- 
ra desligar o avan^o auiomatico de li- 
nha. para avan^ar a cabei;a de uma li- 
nha para ouira» para deHnir o espa<;o 
entre as linhas etc. O programa propria- 
mentc dilo simplcsmeme *'varrc'' a Te- 
la e prodiiz as linhas de impressao cor- 
respondenies ii cada grupo de bits. 

Mais adianle, aprcscniarenios pro- 
gramas desse lipo para os micros Spec- 
trum c TRS-Coior. Antes disso, porem, 
precisamos examinar as combinacoes 
micro-impressora possiveis. 



COMPATIBILIOADE 



Os programas de despejo dc tela de- 
pendcm nao so do irainmcnio dado ^ te- 
la grafica pelo compurador, como tarn- 
bem da marca c do modelo da impres- 
sora que sera utilizada. Isso ocorre por- 
quc ainda nao existe uma padronizai;ao 
dos caractere'i dc controlc grafico c da 
cabci^a dc impressao. 

Nossos programas desunam-se ks 
maquinas que adolam o padrao Epson, 
Esic foi estabelecido para as impresso- 
ras do fabricanic da marca Epson, e po- 
de ser enconirado em modelos muito 
populares, como, por excmplo, o Epson 
MX-80, MX-120eFX-80. No Brasil, va- 
rias empresas. entre elas a Elebra (im- 
pressoras Monica e Alice), a Rima e a 
Grafix, seguem esse padrao. 

As impressoras compaliveis com o 
padrao Epson usam uma mairiz de oito 
pontes de allura. Esta ea configura^ao 
mais convenicnie. pois permite ao mi- 
cro enviar informatoes provenienies da 
lela, um byte de cada vcz, pcla interfa- 
ce paralela. TRS-Color possui imer- 
face serial, mas o mciodo e o mesmo. 
No Spectrum c noZX-8l, ousuariode- 
ve inserir uma interface paralela no co- 
nector de expansao. O Spectrum, alem 
disso. precisa ser carregado com um 
programa cm linguagem de maquina, 
para usar a impressora. 



T60RIA DE PROGRAMACAO GRAFJCA 



A programa<;ao da seqiiencia de im- 
pressao das aguJhas da cabc^a para a ob- 
tengaode efeitosgrafico<J pode ^cr feita 
por meio de alguns comandos simples 



em BASIC. O processo e muito faciL 
Para entende-lo. devemos examinar co- 
mo certos bytes enviados para a impres- 
sora sao interpretados pelos circuitos de 
controlc da mesma, 

A impressora normalmente esta capa- 
cilada para reconhecer os codigos ASCII 
e ASCII estendido, que cstao pre-pro- 
gramados na memoria ROM. Assim, se 
enviarmosuma seqtienciade codigos en- 
tre hexadecimal 20 (correspondente a es- 
pa[;o em branco) e 7E (til), a impresso- 
ra ira reconhece-los como codigos de ca- 
racteres. Por exempio, a palavra ABA 
e impressa quando enviamos: 

LPRINT CHa5<65) ;CHaSt32) i 

CHBS{65) 

hnlrc hexadecimal OOe IF siluam-se 
caraL'icrcs dc controlc com diversas atri- 
buigoes, que variam de impressora pa- 
ra impressora. No padrao Epson, 
CHR$(7) faz soar o alarmc sonoro da 
impressora, CHR$(I3) provoca um rc- 
lorno decarro, cnquan!oCHR$(l2) de- 
lermina a mudanga de pagina. 

Ouiras funv'oes de controlc podem ser 
acionadas por meio da combinagao de 
varios caraciercs. Essas seqiiencias co- 
me4;am scmpre pelo caraciere CHRS(27). 
que corresponde ao ESCAPE ~ por is- 
so, sao chamadas de sequettcias de es- 
cape- A seqiiencia ESC G, por exempio, 
coloca a impressora em modo de im- 
pressao cm qualidadc carta (cadacarac- 
icrc e impresso duas vezes): 

LPRINT CHH$C27) ; "C" 

Para mudar o espa^amento emre li- 
nhas de impressao, utiliza-se ESC A n, 
onde n refere-se ao niimero de passos 
por avan*;o dc linha: 

LPRINT CHR9(27) ;"A";CBRS(4) 

Um passo e equtvalente a 1/48 ou 
1/72 de polegada, dependendo do mo- 
delo da impressora (com densidade sim- 
ples ou densidade dupla). No excmplo 
anterior, o deslocainenio cnirc cada li- 
nha dc impressao equivale ao espa^a- 
mcnto enire quairo agulhas. 

A scle^ao do modo grafico^ no padrao 
Epson, e feita pela seqiiencia ESC K 
ou ESC L. Quando voce seleciona o 
modo grafico, o codigo binario envia- 
do a impressora aciona diretamenie o 
padrao de agulhas da cabeca dc impres- 
sao: quando o bit for 1, a agiilha cor- 
respondente e acionada; quando o bit 
for 0, a agulha fica inaiiva, O bit nie- 
nos significaiivo (DO)controla a agulha 
inferior, eo bit mai.^ significadvo (D7), 
a agulha superior. Assim^ se quisermos 
imprimir uma coluna de ponios, a agu- 
lha de cima e as duas; ultimas agulhas de 
baixo nao serao acionadas; o codigo a 



cnviar e 1000001 1, ou 128 + + +0-h 
+ 0+2+1 ^ 131 em decimal. 

A seqiiencia de escape precisa espe- 
cificar, ainda, o numero de bytes de c6- 
digo grafico Que serao enviados, e, em 
seguida, os bytes propriamente diios: 
ESC K nl n2 dadns, 

Os bytes nl e ii2saa. respectivamen- 
[c, mais significative c o menos signi^ 
ficativo de um numero de dezesseis bits, 
e devem ser apresentados no conhecido 
formaio 256 * ii2 + nl. 

Se vamos cnviar 550 bytes graficos, 
damos a comando: 

LPRINT CHH$(27} :CHRS(3S) ;CHRS 
(2); 

pois 256*2 + 38 = 550, A expressao 
que %c segue, em BASIC, serve para cal- 
CLilar nl e n2 a partir de n, que repre- 
senia o numero total de bytes: 

Nl - INT {N/256) 
N2 - N-INT (N/Z56) 

Esle programa ilustra o padrao de 
acionamento das agulhas: 



10 LPRINT CHRSf27) !-A-!CHRS(S) 
20 LPRINT CHRS (27) ;-K" :CHRS(16> 

;CHBSCO) ; 

30 FOR J-7 TO STEP -1 

40 LPRINT CHHS(2*"J); 

50 NEXT J 

60 FOR J-0 TO 7 

70 LPRINT CHRS C2**J) ; 

80 NEXT J 

90 LPRINT CHRS (10) : 



[fflE] 



af^ 



10 LPRINT CHRS(27J r-A" ;CHRS(S) 

20 FOR 1-1 TO 5 

25 LPRINT CHRS(27) ;"K";CHRSC16) 

;CHH$(0) : 

30 FOR J-7 TO STEP -1- 

<0 LPRINT CHR3(2''J) : 

50 NEXT J 

60 FOR J-7 TO STEP -1 

70 LPRINT CHR3(2"J) ; 

00 NEXT J 

90 LPRINT CHRS (10) ; 

100 NEXT I 



a 



10 PRINT«-2.CHR5C27) i-A^iCHHS 

(9) 

20 PHINT#-2.CHR5(27) !"K";CHR$ 

(16) ;CHRS(0) ; 

30 FOR J-7 TO STEP -1 

40 PRINT#-2.CHB$(2'J) : 

50 NEXT J 

60 FOR J-7 TO STEP -1 

70 PHINT#-2,CHR$(2^J) ; 

80 NEXT J 

90 PRINT|-2,CHR5(1C) ; 



5 PRtl 

10 PRINT CHRS(27) ; ''A";CHR$(8) 

20 PRINT CHRS(27) J "K'';CHR3C16) ; 

CHRS(O) ; 

30 FOR J-7 TO STEP -1 

40 PRINT CHR3{2"J) ; 

50 NEXT J 

60 FOR J-7 TO STEP -1 

70 PRINT CHR3<2"J) ; 

80 NEXT J 

90 PRINT CHRS (10) ; 

100 PRfO 

A linha 10 estabelece um espaipamen- 
to deoito passes entrelinhas. A 20 pro- 
grama a imprcssora para o modo grafi- 
co, avisando que a seguir serao envia- 
dos dezcsseis bytes graficos, Quando os 
dados nao esiao inckiidos imediaiamcn- 
te na seqiiencia de escape, o ponio c vir- 
gula no final dessa linha e obrigatorio. 
Os laeoi das linhas 30 a 50 e 60 a 80 im- 
primeni, respectivamenie, um padrao 
deseendentc e outro asccndciue de pon- 
tos (dcierminados pelos codigos que cot- 
respondem a polcncias de 2: 128, 64, 32 
etc.). Finalmente, a linha 90 alimenta 
uma !intia. 



MONTAGEM DA TELA 



Para copiar um descnho na impres- 
sora, e necessdrio exeeutar um progra- 
ms que o trace na tela. Exist em duas al- 
lernalivas para isso. Uma dcias consis- 
le em carregar o programa de desenho 
no computador e, em seguida. combina- 
lo com o programa de despejo (a nume- 
ra[;ao das linha^s de ambos (cm que ser 
diferenle). O primeiro programa deve 
ser alterado na lela depois que o dese- 
nhoesiiver pronto, dc modo qneo pro- 
grama de despejo seja cliamado auto- 
mancamentc, ou quando se pressionar 
dcterminada lecla. Se achar convenien- 
le, podera incluir permaiientemente o 
programa dc despejo no programa de 
descnho^ na forma de uma sub-rotina. 

A segunda alternativa e a de mais fa- 
cii execLigao, mas depende da capacida- 
de do micro de armazenar o conleiido 
de telas graficas em disco on fiia (co- 
mandos BSAVK, SAVEM etc.). Se seu 
computador lem essa capacidadc, car- 
regue e execute o programa dc desenho 
e arma/cnc a tela resuitantc ein fita on 
disco. Depois. carregue o programa de 
despejo usando um coniando na linha 
10 (essa linha nao foi colocada nos pro- 
gramas que se seguem jiislamente para 
criar um espago para o seu comando de 
carregamenio). Com esse procedimcn- 
to, programa ird Icr, em primeiro lu- 
gar, a tela armazenada. 



Para os usuarios do TRS-Color. o 

sistema e um pouco diferente: algumas 
linhas do programa de despejo lem que 
ser execuladas antes que o desenho seja 
tracado na tela. 



IMAGEM DE LADO 



A imagem despejada por este progra- 
ma e imprimida de lado — ou seja, no 
seniido longitudinal e nao transversal, 
relativamenle a imagem que aparece na 
tela. Com isso, obtemos uma imagem 
maior e mais margem no papel. 



15 LPRINT CHHSS; 

20 LPRINT CHHS27; "A"; CHRSB : 

30 FOR x=0 TO 255 STEP 4 

40 LPRINT CHRSll; CHRS27: '^K"; 

CHBSO: CHRS96: CHRSl ; 

50 FOR y-0 TO 175 STEP S 

60 FOR d=0 TO -7 STEP -1 

70 LET bt- [P0INT{X ,y'd3*l28) + (P 

01NT£x..y'd)*64) + (POINT (x-H,v-d) 

*32) f (POINT (k; l^yd) *I6) + (POINT 

(x4 2.y-dIi8)+(P0INTtx+2.Y-dl -4) 

+ CP0IMTix+3./-dl "2) *■ (POINT ix + 3. 

y-dJJ 

?Z LPRINT CHBSbf ; 

;4 LPPINT CUHSbt ; 

80 NEXT d 

QO NEXT ¥ 

100 NEXT X 

110 J, PRINT CHBS^ ; STOP 

A linha 15 desliga o conjunto de ca- 
ratteres ASCII na imprcssora. O co- 
mando LPRINT da linha 20 informa a 
impressora que nao deve haver espat;a' 
mento entre as linhas impressas. 

O laco que vai da linha 30 a 100 var- 
re uma linha da tela, em blocOs de qua- 
tro pixels de cada vcz. A linha 40 passa 
para a impressora um codigo de rctor- 
no de carro fcodigo 13) e. em seguida, 
codigo '0, que se encarrega de prepa- 
rar a mAquina para receber o niimero de 
bytes que a linha correnle de tela ira cn- 
viar. Esse byte e composto dos c6digos 
96 e 1 (tambem na linha 40), que sao in- 
terpreiados como 1*256 + 96 — ou se- 
ja, 352 b>'les, 

O la^o da linha 50 a linha 90 percor- 
re a tela dc cima para baixo; o lafo da 
linha 60 a 80 loma um bloco de oito pi- 
xels de cada vez. Antes de incremenlar 
OS la(;os, a linha 70 usa o comando 
POINT para ler os pixels na tela. Estes 
sao conden.sados pcia expressao nume- 
rica no byte bl, qiae e enviado duas ve- 
zes a impressora, pelas linhas 72 e 74. 
A segunda impressao fara a imagem 
aparecer duas vezes maior que na tela, 
na dirci^ao horizontal. 

Finalmente, a linha 1 10 ret orna a im- 
pressora ao conjunio ASCII e encerra 



a e\ecui;ao- Sc voce quiser iransformar 
e^se proarama em sub-roiina. nao se es- 
queva de subsliluir o STOP dessa Unha 
por urn RETURM. 



a 



2 DIM A(S.l) 

A FOB K-0 TU 0. READ A(K,0).A(K 

.1) ;NEXT 

6 DATA J. J, ^.1.0,0, 3U. 3. 3,0.0. 

1,2. J. i , 3. J 

20 PPTNT t-2. CHRSa7) . "A- ;CHB3 

(8) 

30 FOR L=0 TO ZSS STEP 4 

40 PRTNI' •-2.rHR?(l 3) :CHH512/) . 

^'K" iCHRS (0) \CW\iZ f 123) ; CHRl" (1> i 

SO FOR K^19l TO STivP -1 

OO T=0:E=0;tOtt M-0 TU 3 : P-PPOIN 

TfL + M,K) :T=T*4 + AfP, Dl .S-HM + AEP 

, n :NEXT 

70 PRINT |-2,CHRSfT) ;fHH5(S) : 

RO NEXT K.L 

yO PRINT |-2.CHRS(2?) ;"^" 

E iniporlanie que as ires primeiras li- 
nhas do programa (2, 4 e 6) precedam 
2 roiina de gerat;ao da tela grafica que 
seri impressa. Na iinha 10, reservada 
para o seu programa, voce deve estabe- 
lecer o lipo de SCREEN e de PMODE. 
Em vinude da forma de arma^eriagem 
de lelas graficas no TRS-Color, o pro- 
grama de despejo precisa levar em con- 
la as cores empregadaSn 

A Iinha 2 dimensiona um conjunto 
A, para armazenar o padrao de ponlos 
usado em cada cor. Existem nove cores, 
mas nem lodas podcm aparecer na Ida 
ao mesmo tempo. Os padroes esiao de- 
finidosem DATA, na Iinha 6, e saocar- 
regados no conjunlo A pela Iinha 4, 
Dois ilens em DATA deierminam cada 
cor; segundo e impresso sobre o pri- 
meiro. Por exempio, o primeiro par dc 
numeros (3,3) indica preto. formando 
um padrao binario de 3 (II) sobre 3(11), 
segundo par (2,1) especifica verde, 
formando um padrao de 1 (01) sobre 2 
(10). Notequeharepeti^aode pares na 
seqtiencia. mas isso nao imporia: a se- 
gunda ocorrencia dciermina uma cor 
que nao pode aparecer na tela junto com 
a primeira especificai^ao. 

A Iinha 20 prepara a impressora pa- 
ra receber graficos. A sequencia de es- 
cape que contem instrui a impressora a 
nao dar espai;amenTo enlre linhas. 

O la^o que vai da Iinha 30 a 
80 percorre uma Iinha da tela, 
em blocos de quatro pixels. A 
Iinha 40 envia a impressora um 
codigode retorno de carro (13) 
e. em seguida, o c6digo •, que 
coloca a impressora em modo 
grafico- Ainda nessa Iinha, 
CHRS(O) define a dens-idade de 
impressao<:CHR$(l2«);CHRS(l) 



diz a impressora para esperar 128 + 
!*256 bytes graficos. ou seja, um total 
de 384 bytes, 

O la?o da Iinha 50 a 80 percorre a te- 
la de cima para baixo (192 pixels dc al- 
tura); o da Unha 60 toma quatro pixels 
de cada vez, examina-os com PPOINT, 
caicula as cores e coloca o resuiiado nos 
bytes S c P. A Iinha 70 imprime esses 
bytes. Finalmente, a Iinha 990 reinicia- 
liza a innpressora. 



PR06UMAS COM CORES 



O programa de despejo de tela, em 
BASIC, imprime apenas uma represcn- 
ta^ao biniria, em preto e branco. da te- 
la de alta resolu^ao, pois reproduz o pa- 
drao de pixels sem diferenciar as cores 
presentes na imagem original. Em con- 
scqiiencia, a imagem oblida apresenta 
densidade igual para lodas as cores, nao 
representando com fidelidade o desenho 
copiado. 

E posslvel, porem, escrever um pro- 
grama de despejo de tela em que as co- 
res sejam represeniadas por diferenies 
tonalidades de cinza e preto. Esse efei- 
to e conseguido por impressoes sobre- 
postas de panes da imagem, de modo 
a obler tons mais escuros ou claros de 
cinza. conformc a cor presente. Em uma 
telacom quatro cores, porexempio, po- 
dem-se definir quatro diferentes padroes 
de pontos, para represenlar o vermelho, 
com um cinza bem claro; o verde, com 
um cinza mais escuro etc. Isso e feito Ini- 
bindo-se o avan^o da cabe^a de im- 
pressao. 

Evidentementc. o tempo total de im- 
pressao e muito longo, nesse caso. Um 
despejo de tela simples demora quase 
meia bora em alguns micros; se levar- 
mos em considerai^ao a cor, esse tempo 
sera aumentado para varias boras! Um 
programa em codigo de maquina — co- 
mo o que apresentamos a seguir para 
duas linhas de computadores — pode re- 
solver esse problema. 



10 CLEAR 59999 

20 LET L=100^ RESTORE L: FOR N- 

60000 TO 60247 STEP 

30 LET T-0:FOa M-0 TO 7 

40 READ A:LET T-T+A.-POKE N^-M.A: 

NEXT M 

50 READ A: IF AOT THEN PRINT " E 

RRO NOS DADOS DA LINHA " ; L : STO 

P 

60 LET L-L+10: HEXT N : STOP 

100 DATA 243.62,3,205,1.32.33.7 

0.639 

110 DATA 235.6.4,205,9.235,62.0 

. 756 

120 DATA 50,83.235.62.0.50.64.2 

35.799 

130 DATA 6.175.221,33.85,235.19 

7.62.1014 

140 DATA4.237.75.83, 235,245. 205 

.15.1099 

150 DATA 235,245.205,30.235,241 

.126, 32.1349 

160 DATA 6.203.63.203.63,203.63 

.230. 1034 

170 DATA 7. 214. 7. 237. G8. 221. 119 

.0.873 

180 DATA 221, 35. 241. 12. 61. 3^'. 22 

2.58.882 

190 DATA 84.235.660.50.84\235.1 

93.16.957 

200 DATA 205.6.7,197,33.74.235. 

6.763 

210 DATA 9.205.'^.235. 221 . 33.85. 

235.1032 

220 DATA ti. 175. iy7. 0.4. 30,0. 197 

.615 

230 DATA203. 35,203.35,221. U'^'.O 

.254. 1077 

240 DATA 0.40.7p221.53.0).62, 3,3 

86 

250 DATA 24.2.62.0.131.95.221.3 

5,570 

260 DATA 193.166.226.123.245.21 

5,24i ,215.1476 
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270 DATA 193,16.215,193,16,197. 

33,65,928 

280 DATA 235.6,5,205,9.235,62.1 

0,767 

290 DATA 215,58.83. 235a98. 1,50 

,83,926 

300 DATA 235,210,115,234,62,4.2 

15,251,1326 

310 DATA 201.126.35.215,16.251, 

201.197.1242 

320 DATA 205,170,34.71,4,126,20 

3,7.820 

330 DATA 16.252,230,1.193.201,1 

S7,62.:i52 

340 DATA 175,144.230.246. /I. 88. 

2Z, 0,978 

350 DATA 203.35.203,18.203.35.2 

OJ. lfl.918 

360 DATA 121.203.63.203.63,203, 

63, 111 . 1030 

370 DATA 38,0,25,17.0.08,25,193 

,386 

380 DATA 201.27.64.27.65,8.5.27 

.424 

390 DATA 65,8.27,65,0,13.27.42. 

247 

400 DATA 0, 96, 1.0. 0.48. 48. X93. 3 
86 
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10 CLEAR 200,29992 

20 CLSiFOfi K-0 TO 12:T=0:FOH L- 

TO 23-nCAD A 

30 POKE 29993+24*K+L.A:T»T+A 

40 NEXTrHEAD A: IF AOT THEN PHI 

NT "EBftO NOS DADOS DA LINHA^.-IO 

00+10-K: END 

50 NEXT 

1000 DATA 0.0.0,3,27.51,24,134, 

254.151,111,111,140,242,111.140 

,240,150,182.133.1.39,3.108.235 



1010 DATA 110,231.77.39,4.12^,2 

.38.3.108.140,220,150.193.68.16 

7. 140. 216.48.140,214.23.0.142.2 

632 

1020 DATA 95.52,4.51.141.1,1.19 

y . 191. 1G6, 2 ^8, 52. 6, 134. 4, 52, 2, 2 

3.0,134.48.140,307,166.1996 

1030 DATA 134,167.192,108,97.10 

6, 228. 38. 240.53.2, 53.6, 166. 228, 

90.193.255,38,22 3.198.3,52,6,28 

76 

1040 DATA 51,141.0.212.198,192, 

231.228.48. 140.65,141.81.79,198 

,4,72. 72,106, 192,4 3.2.138.3,263 

7 

1050 DATA 90.38.245.173.159,160 

.2.17 3.159.160,2,106,228.36.230 

.134.13,173,159,160.2.106.97,38 

,2S4b 

1060 DATA 207.53.6,134.10.173,1 

59,160.2.53.4,173.159.160,0. 129 

,3,39,4.203.4.38.138,48,2059 

10/0 DATA 140.17,32.18,5,27.42. 

4. 128, 1.3. 1.0. 2, 3. 0.1. 2. 3. 2. 27, 

64.230,128,880 

1080 DATA 166.128, 173, 159,160. 2 

.90, 38,247,^7,134, 32.109,141.25 

5,48. 39. 1.68.52.2.166,101.214.2 

582 

1090 DATA 182.193,1,34,1.63,230 

,224.61,211,186,31.1,230.99,34, 

64,84 . 109. 141 , 255.18, 39. 1, 2567 

1100 DATA 81,58.166.99.109,141, 

255.8.39.8. 132.15.64,139,15.68. 

32.5. 132,7,64,139,7.198,1984 

1110 DATA 1,74,43.3,88.32.250.1 

09,141,254,2 38,39.14,52,4,197,8 

5.39.5,88,235.224,32,3,2250 

1120 DATA 84,235.224,52,4,166,1 

32.164,224,84,37,3.68.32,250,17 

1.141.254,206,171.141,254,203.5 



7.3357 

Embora o codigo de maquina e^leja 
contido em uma lisla de niimeros em 
DATA, cada linha incluj somas de ve- 
rificafao. cuja finalidade e evitar que se 
cometani erros de copia. 

Nao se esque^a de observar as pre- 
caui^oes tisuais ao rodar um programa 
em linguagem de maquina: para nao 
correr riscos. armazene o programa, as- 
nim como suas versoes corrigidas, em fi- 
ta ou disco, antes de executa-Io. 

Depois de lestar o programa comple- 
to. rode-o com RUN e, em seguida. apa- 
gue-o (o programa cm codigo de maqui- 
na ficara arma2enado em uma porgao 
protegida da memoria RAM). Digile ou 
carregue seu programa de desenho e e\e- 
cute-o. Para imprimir a imagem na te- 
la, chame esle comando: 



RANDOMIZE USB. 6OO0O 



Q 



EXEC 30000 

E importante desHgar a atimeniai^ao 
automacica de lintia em sua impressora. 
anlej* de usa-la para despejo^ de tela. Pa- 
ra isso, siga as instriJi;oes do manual de 
opcragao. 

Imprima a tela em uma fita de im- 
pressao ja usada, pois mo propordona- 
ra um conlrasie melhor enire as dif'eren- 
tes tonalidades. 




ESTRUTURAS 
DO PASCAL 



Ja examinamos a filosofia e os 
princrpios basicos do Pascal. 
Mostraremos agora como as estruturas 
dessa linguagem sao organizadas 
na constru?ao de um programs- 



Como vrmo^ no arligo da pagina 
1436, e fundamenlal csiudar a maneira 
de *.olucit>nar Jctct iiiiiiado pvoblcma an- 
tes de iniciar a daboragao dc um pro- 
grama em PasuaK O algorifmo para a re- 
soluv'ao du pmblema dc^c ^er aperlei- 
Coado e refinado ale sc loniar semellian- 
te a um programa que pos^a ser eom- 
preendido pcio miLroeoniputador. 

Para realizaressa larcla. voce preci- 
sara eonheecr as fcrramenias disponiveis 
no scu micro, ou scja, asesirutura^ eos 
eomandos aceitos pe!o Pascal. Esse pro- 
cedimenlo nao e miiilo tlifcrenie daquclc 
que adoiamos ao elaborar uni progra- 
ma cm BA.SIC, A panir de nossa cxpe- 
rlencia com a maquina. sabemos qiiais 
comandos sao validos, o que nos pcrmi- 
tecsho(;ar umasolu(;aoadapiavel ao mi- 
crocompuiador. 

No BASIC, diversos rccursos podcm 
ser ulili/ados em cada ctapa da rcsolu- 
van de utn problema. Esses recursos nao 
sc resumem a simples coruandos, mas a 
combinagoes de varies deles. Por cxem- 
plo, quando precisamos repelir uma ta- 
refa varias ve/es. um la^o FOR... NEXT 
cosiuma ser uma boa saida; para uma 
Jornada dc decisao, basia um 
lf,..THEi>i, ExisEem eMruiuras seme- 
Ihantcs em Pascal — mas eias cxigem 
um grau dc rclinamenio maior que no 
BASIC, Neste artigo. examinaremosas 
mais simples e uleis di:ssas esiruiuras. 



COMPATIBIUDADE 



Ao comrario do BASIC, o Pascal c 
dcfiiiido muilo prccisamena\ nao ten- 
do variav^oes enire um sisicma e ouiro 
(como a^ exisienles eiiire o BASIC do 
MSX e o do TK'20(X\ por exemplo), As- 
sim, OS programas que sc scguem fun- 
cionarao cm qualquer maquina cujo 
compilaJor aceiie letras minusculas. 

Pcla mesma rax^o. ao escrevcr seus 
proprios programas. voc^ devera uiiar 
uma dcierminada fornia para cada ope- 
racao. Para apresentar o padrao utili- 
^ado na definicao da forma c da sinta- 
\e do programa, pode-sc recorrer a uma 
notacao dcsenvolvida durante os anos 
60, conhccida como Forma de Backus- 
Naur (BNF), ou ao diagrama de sinlaxe. 

Ambas as noiacoes simptesmenle 



mostram a cslrumra geral de umadecla- 
racao. Suponhamos que sc queira defi- 
nir um idcntiricador; um kiefnifiviuhre 
c/efitiifio como tuna feiru ou ifm lifiiito. 
Em um diagrama de simaxc. (eriamos; 
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Na noia^ao de Backus-Naur, a mes- 
ma definitao [eria a seguintc forma: 

<idenlinc>:: = <leira> I <letra ou 
digit o> 

Cada uma dessas represcntavnes 
nioslrao signilicado cvatodadctuiiv'uo 
dada anieriormcnio. Paia dol'inir h'/rct. 
voce poderia cscrcver cm BNF: 

<leira>;: = A I B I C I D I E I F I C clc. 

Ou sdju: uma Icira e definida comn 
A ou B ou C ou D ou E ou F eic. 

As proximas cslruiuras-padrao .scrao 
dada^ cm BNF, para niosirar sua tor- 
ma original, mas voce reconhccera la- 
cilmcutc as enuivalemcs cm BASIC. 
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TECNICAS DE REPETigAO 



Exisleai tres iccnicas de repeiicao no 
Pa^scaF A escoiha dc uma deJas dcpende 
do paramerro a ser emprcgado no con- 
irolc do ]a<;o. Aprimeirae lamiliaraos 
usuarios do BASIC; FOR.„DO. As ou- 
tra.sduas> que tanibeni podcm scr simu- 
ladas naqucla linguagom. sac: WHILtl— 

i>Oe repf:at..,l\til. 

A principal difcrenca cnrrc cssas icc- 
nicas esla na condiv'ao de coniroic res- 
ponsdvcl peJo numcrt> de repeiicoes. Na 
forma WHILK-..UO (ENQUAN- 
TO.„FAC7A). a^ insiru(,'6cs scguimcs sc- 
rao e\ccuiadas enquanto dctcrmiiiada ex- 
prcssao caniiiuiar sendo \erdadeira. A 
forma ^RKPEAT.. UNTIL (REPI- 
TA.„ATEOUE|irae>iecuiarumasericde 
inslTucoes aic que uma dada condicao se- 
jaalcantada, Ambasasiecnicas^ao usa- 
dasquando uao-scsabcdcanlcmaoonu- 
merodc repcticoes necessarian;- Casoes< 
"^c nt'micro possa ser prcviamcntcdefini- 
do, uiili/a-se a forma fOR—UO. 



WHILE.. DO 



Em BNF» ewievj-se: 
while <expressaoI6gica> do <instrui;ao> 

Esse lafo c emprcgado quando o mi- 
mcro dc repetLi;6cs dependc de uma con- 
dicao. Assim, sera execulado enquanio 
a eondii;ao especificada no programa 
for verdadeira. Para repeiir uma serie 
de inslrugocs dcntro desse lago^ adicio- 
ne, apos o do, urn begin — indicando 
o injcio das instrui^^oes — c um end — 
indicando o tcrniiiio do laco. 

O exempio que se segue moslra o uso 
do WHILE. ..DO. Tente e^crever o al 
goriimo em que o programa se baseia. 

progr am exemploZ ; 
var no.sumr ifiteaerj 
begin 

sum :=0 : 

read [no} ; 

whi le noOO do 

begin 

sum: =^sum+-no; 
read (na) 

end ; 

un teln (buid) 
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REPEAT, ..UNTIL 



repea[<inslru9ao> until cexpressao 
logica > 

As instrucoes entre repeaf e until sao 
repelidas ale que a condi(;ao final se tor- 
ne verdadeira. Todas elas sao execula- 
das pcio menos uma vez. pois o lesie so 
e feiio ao fiaal. Ao contr^rio da forma 
while.., do. nao e necessario acrescentar 
begin e end a um conjunto de instrutoes, 
Usando-se essa tecnica, o programa an- 
te^rior pode ser escrilo da segumie 
maneira: 

fciroaram exetnplo3; 
Vdr no i 3UT0 : i nteger : 
begin 

sum: =0 I 

repeat 

read £noJ ; 

ELcm : ^sum+no ; 
unt 1 1 no=0 ; 
wr 1 1(^ tsLim) 

Esse programa e mais eficienle que o 
anterior, pois. com o uso de repeat, >.iin- 
lil, cconomiza-se lima insirutao 
read(no). Para eleluar uma soma cor- 
rente. e mclhor que o programa entre di- 
relamenie no lafo inicializado por re- 
peal. No programa exemplol, o progra- 
ma cKega a so!ui;ao por intermedio de 
uma esirutura menos adequada que a 
uiilizada no exemplo3. 



No Pascal, ao contrarlo do que acon- 
Eece no BASIC, o la<;o inicializado por 
FOR so pode caminhar em passos 
{STEPlde + lou - 1. Adaptandoo pro- 
grama anterior ao uso dessa tecnica, lere- 
mos que introduzir inicialmente a quan- 
tidade de numeros a serem somados. 

rroQram exemplD4; 

var no, aum, quant , a : integer ; 

redd (fiuant J \ 

Bum : -0 ; 

for ir=l to guant do 

begin 

read (no) ; 

suJDi-auin-'-no 
end ; 

writeln(suin) 
end. 



TOMANOO DECISOES 



Como o BASIC, o Pascal dispoe de 
varios recursos para verificar qual deci- 
sao deve ser tomada diante de delermi- 
nado resultado. O primeiro deles, co- 
mum ao BASIC, e o if,, -then.,. else, ge- 



ralmente usado quando a sele^ao depen- 
de de un:i ou oulro de dois cventos. Po- 
rem, se a decisao dcpendede um nume- 
ro maior de evenlos, costuma-se utilizar 
case.,, of. Nao ha nenhumaestrutura si- 
milar a case no BASIC. 



IF.. .THEN. .ELSE 



if<expressao l6gic3>then<inslru?ao 
1 >eise<instrui;ao 2> 

Essa estrutura indJca que, se a expres- 
sao logica for verdadeira, o programa 
cxecuiara a inslru?ao I; sc for falsa, a 
instrui;ao 2. Como mostra o diagrama 
FBN, oelsee opcional; uma constru^ao 
alternaiiva seria if,, -then. 



A declarai;ao case pi-rmite ao progra- 
ma sclecionar uma insirui;ao de uma lis- 
ta de varias possibilidades. 

A forma geral de case e: 



case expressao of 

cl : inslrucao; 
c2 : instruifao; 



en : instrn^ao 
end; 

O valor da expressao deve correspon- 
der a um dos c e ser do mesmo tipo- No 
Pascal padrao, se o valor da expressao 
nao for cncomrado na lista, uma men- 
sagem de erro sera exibida. Em algumas 
versoes, porem, o programa simples- 
mente ignorara o case. 

Note que ha um end associado ao ca- 
se que nao corresponde a nenhum be- 
gin. Esse tipo de esirutura nao e fre- 
qijente, e pode trazer inconvenientes du- 
rante a busca de um erro dcntro do pro- 
grama. Geralmente, a primeira coisa 
que se faz e verificar se ha correspon- 
dencia entre o mitnero de begin e end, 
A associagao do cnil ao case provoca- 
ria uma diferenga. Para contornar o 
problema, coloca-se um rotulo. em ca- 
da end — por exempio, end; [casej. 

As itisirugoes equivalcntes a cada op- 
gao (c) podem ser instrufoes compostas, 
sempre entre um begin e um end. 

Veja esle exempio do uso de case: 

program exemrl o5 ; 
var nodid: integer; 
begin 

readl n (nodidl : 

if (nodia>0) and (nodiaCfi) 

then 



case nodia 

1 :wr iteln ( 
2:writeln( 
3 : write In ( 
A :wr iteln( 
5 tbegin 
ur J. teln C ' 
wr 1 teln ( ' 
end \ 
6> 7:begin 
wr 1 tel 
wr 1 te 1 
end ; 



end 
else 



end . 



beg in 
wri tel 
writ el 
end; 



of 
■Segunda-feira' ) ; 

"Tenca-f eira" ) ; 
■Quarta-feira' ) ; 
'Ouinta-f eira' ) % 

Sexta-feira' ) \ 

Dia de paganento') 



n ( ' Fim-de-semana ' } i 
n( 'Descanso") i 



n C 'Use valores ' ) ; 
nCentre 1 e 7) 



Em algumas variai;6es do Pascal, os 
rotulos 1, 2, 3, 4. 5. -6 e 7 devem serco- 
locados entre parenteses, fugindo, pOr- 
tanio, do Pascal padrao. Na verdade, 
em algumas implcmcntacoes para a 
adapiatao ao slsiema BASIC, a mudan- 
^a na sintaxe e ncccssaria. 

O programa exemploS mostra co- 
mo superar um problema basiance fre- 
qiiente no uso do case. Muiias vezes, o 
identificador pode assumir valores nao 
encontrados entre o^ roiuios de case, o 
que provocaria uma interrupgao e uma 
mcnsageni de erro. Assim, utUizamos 
um desvio condicional if.. .then. ..else 
para mudar o curso do programa, caso 
OS valores dc nodia nao sc encontrem 
no intervalo apropriado. Observe lam- 
bem que foram empregados rotulos com 
mais de um valor e inslruK;6es compos- 
es ap6s alguns deles. 



DESENVOLVIMENTO DE PROGRAMAS 



Com um conhecimento mais detalha- 
do dos procedimcntos disponiveis no 
Pascal, podemos passar ao exame de um 
programa escrilo nessa linguagem. 

O programa que apresentamos a se* 
guir verifica se uma palavra ou frase c 
um palindromo — ou seja, se ela pode 
ser lida de tris para frente sem sofrer al- 
leragao (como "radar" ou "Socorram- 
me, subi np onibus em Marrocos"), ig- 
norando-se os espagos em branco e os 
sinais de poniuai^ao. Suponhamos que 
voce queira testar se esta frase e um pa- 
lindromo: 

Arara ^ ave rara 

O algoritmo inicial poderia ser: 

begin 

leia uma cadeia de caracleres 

tesle se e um palindromo 
end 



UNCUACCNS ^\ 



Essa frase inicial e bem simples, com- 
slstindo so de duas etapas, alem do be- 
gin e do end requeridos pelo Pascal. Po- 
deriamos elaborar um algorilmo mais 
detalhado para a primeira etapa: 

inicJQ 

leia o nuinero de caracteres (n) 
Eeia OS caracleres colocando-os na 
matrjz A(il 

fUn 

Traduzindo essa primeira eiapa pa- 
ra Pascal. Icmos: 

readln{n) 

for i:-l to n do read<a[i3); 

Passando para a segunda etapa, che- 
gamos ao seguinie algoritmo: 

JnJcio 

fa^a cr^c igual a 1 
fa^a deer i}>ua] a n 
enquanto crsc <decr fa^a 
se alcrsc] e pontua^ao enlao 
incremenle crsc 
scnao 

se aldecrl e ponliia^ao entao 
dccremenlc deer 
senao 

se alcrsc] = aldecrl entao 
incremente crsc 
decremenle deer 
senao 

fa^a a vari^vel booleana 
(paJ) igual ^ false 
ftm 

Esse algoritmo poderia ser refinado 
para o Pascal desta maneira: 

crac:=l; 
deer • =n ; 

whi le (crsc < ducr ) and pal do 
ihUlcrarJ-' ' ) or ( J I cr :v: I- ' . ' J 
or (a 1 crsc J ■ " . ' ) or (al cr scl^ * " ' ) 
Lhon crac : =crat:+l 
else 

iffalderr J^' " J or (flld*-cr 1^' , *) 
or f jjdecr j-i' , ')«r (jI deer I - "" ' 1 
then di:cr:-dRcr- L 
else 
if ar cr 3(: j^aldccr I 1 hen 
ben ) n 

cr3c:'Lr3r+l ; 
deer '. -cJet:r 1 ; 
end 
*tiBB pa I : -false 



Precisariamos de uma lerceira etapa, 
na qual o programa mostraria o seguinte 
resuliado: 

se pal £ igual a true entao 

escreva "palindromo" 
senao 

escreva ''nao e palindrome'' 



o que, em Pascal, corresponderia a: 

if pal then 

wriLriln( ' pali nd l one ' ) ; 

e Ise 

writeln{'ndo \\A pal f ndiome ' ) 



PROGRAMA COMPLETO 



Refinando aigumas partes anteriores 
e reunindo-as, chegamos ao seguinte 
programa em Pascal: 

prooram exemploG: 
const coinp = 30 \ 

var a^array ( 1 . . comp 1 of char: 
L.HiCraCpdecr integerj 
pal : bdoleani 
begin 

pal : = true ; 
readln(n) : 

for it^l to n do read^ali]); 
crsc: =1 \ 
deer: ^n; 

whi 1g (crac < deer) and pal do 
if (atcrac J = ' ' )or (dfcrsc J-' . ' ) 
or (a [crsc ]*' . ' )or (al crsc J- ' " ' ) 
then crscr-crsc+l 
■else 

if (a [deer 1=' ^)or ld[decr 1=' . * ) 
ortd[d€cri-' . ^)or £d(decrl-'- ) 
then decr:=decr-l 
else 
if a[ crsc 1 "a [deer ] then 
beqi n 

crac : =cr3c+l ; 
deer : =decr"l ; 
end 

Glee pal ^=f alsej 
jf pal th@n 
writeln( 'pal indrome ' ) 
else 

wntelnt "nao ha palindrome ' ) 
end. 

O Pascal aprescnia um lipo de varia- 
vcl desconhecido do BASIC, a varia- 
vel booleana^ que nao assume valores 
numericos nem guarda caracieres. Ela 
assume o valor de resullados Ibgicos — 
true (verdadeiro) ^ false (faho). Note 
que 6 desnecessario dizer: 



if pal - true then... 
bastando apenas: 
if pal then... 



RERNAMDO PROGRAfVIA 



Se seu sistema Pascal dispoc de ai- 
gumas formas adicionais de manipular 
dados, divcrsos aperfei^^oamcntos po- 
dem ser incorporados ao programa. En- 
trctanto, como estd, ele deve funcionar 
na maioria dos ststemas. 

A variavel bookana e usada para dcs- 
viar o programa do lafo while quando 
se determina que a|crsc| nao e igual a 



a|decr|>) Tudo o que precisa ser feito e 
lornar pal igual di false quando o teste 
a[crsc| = a[decr) apreseniar esse resul- 
iado. No momento em que o programa 
voUar para O cabe^alho do lago, encon- 
irara um desvio condicional dentro de 
while, A lecnica cmpregada em BASIC 
seria a seguinie: 

HO. . . 

1 bO FOU T-i TO N 



100 TF Att-RfirX^AtDtlCfl) THt-N 
^60 



ZJO hJEXT I 

240 i>HlN'r "I'At.fNDI^OMiC* 

2iiO fiOTO l/^ 

260 PRINT "NaO I^ I'ALfNDROWK" 

Z/0 t:N[) 

Um algoritmo melhor estruturado 
poderia ser apresentado assim: 

ini'cio 

defina o conjunto ponlua(|& 



se a(ersc) esliver em pontua^ao entao 

incremenle crsc 

senao 

se a|decr| esliver em ponluacao entao 

decremenle deer 

senao 



Uma declara^ao desse tipo economi- 

zaria exaustivas <:onipara<;oes do tipo: 

if (a|crsc)=' ') or fa|crscl = '/) or 
(a|crsc| = '/) or {alcrscj = '"') then... 

O Pascal aceita a definicao de con- 
juntos (alguns compiladores mais sim- 
ples podem nao aceilar essa dcclaracao), 
Assim, modifique o programa anterior 
aproveilando essa defini^ao: 

program exenplo? i 

const coiBP"30; 

type carac - ' * . . ' z' ; 

sirob = set of CAtACi 
var a : arrayl 1 . . comp J of char; 
X pii«crsc,decr integer ; 
pal boolean; 
pont ; simb; 
begin 

pont :-[ ■ '. \ ','.',"" ]; 
pal : = true : 
readln (n) ; 

for i:=L to n do readCa[iJ); 
cr3c:-lr 
deer :-n; 

uhi le (crsc<decr 1 and pal do 
if atcrscj in pont ttien 
crac:»crBC-*-l 
else 
if aldecr ] in pont then 
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deer i-decr-l 

else 

if alcrscl-atdecrj then 

begin 

cr3c:"crBc+l ; 

decr:'decr-li 

end 

elae pal i-false; 
if pal then 
wTi teln t 'palindrome' ) 
else 

writelnC'nao ha palindrome') 
end. 

Finalmenle, temos a melhor esirulu- 
ra para o problema do palindromo, ori- 
ginalnienle dividido em ires ciapas: 

* enfrar a cadcia de curaclcres 

* verificar se ela e um palindromo 
" mosrrar o resullado 

Cada ciapa foi refinada em eiapas 
menores ate que os resuliados fossem as 
proprias declara^oes em Pascal e, jun- 
tas. formas,sem um programa- No nos- 
so caso, o prugrama era bem simples. 
Porem, em siiuagoes maiscomplcxas. e 
aconselhavel construi-lo por paries, sc- 
mi-independenics {procedures) e icsta- 
las separadamcme. Um procedure e uma 
sub-rotina nomeada com um rotulo e 
declarada junto com as variavcis. Du- 
rante a execu<;ao do programa, basia 
chamar o procedure airaves de seu ro- 
tulo, como sc fosse um comando. Essa 
lecnica permhe moduiarizar os progra- 
mas, lornando-os beni estruturados. 

Ha dois grupos de sistenias Pascal. 
Um deies usa compiladores em codigo 
especifico — ou seja, escritos exclusiva- 
mente para as maquinas em que irao ro- 
dar, Como varias maquinas sao simila- 
res. usando sistemas operacionais CP/M 
ou MS DOS. as adaptagoes de uma pa- 
ra oulra sao muilo simples. 

O segundo grupo e conhecido como 
Pascal UCSD (Universidade da Calif6r- 
nia, em San Diego). Nesse sistema, o 
Pascal e compilado para o codigo de um 
computador hipoielico denominado md- 
quina p, e seu codigo e conhecido por 
codigo p. Isso signified que o compila- 
dor e o mesmo para todas as maquinas, 
Na verdade. UCSD e escrilo em Pas- 
cal, possuindo um programa especifico 
para cada maquina. Sua vanlagem e a 
incrivel eompatibilidade. Porem, a ve- 
iocidade da compila?ao nesse sisiema e 
bem menOT que a proporcionada pelo 
compilador especifico. 



EXPERIENCIAS COM PASCAL 



Se voce possui um sisiema Pascal pa- 
ra seu microcomputador, tente colocar 




em execu^ao alguns dos exemplos ante- 
riores. Para isso, depois de ler acessa- 
do o compilador Pascal, digite o progra- 
ma c compilc-0. Os programas devem 
funcLonar para qualquer compilador 
que aceiie letras mimisculas. 

Os microcomputadores que usam o 
CP/M dispoem de um compilador po- 
deroso,o TURBO PASCAL. Paraaces- 
sa-lo, basta chamar do disqueieo nome 
TURBO, seguidodc <ENTER>, Vo- 
ce ira obter a seguinte saudafao na tela: 

TURBO Pascal syslem Version 2.00A 

CP/M-80, Z80 
Copvrighl (C) 1983, 1984 by 
BORLAMD Inc. 
Include error messages (V/IN)? 

Pode-se optar por mensagens de er- 
ro escrilas por cxtenso (Y) ou simples- 
mente desgriias pelos seus codigos (N). 
Se voce estiver iniciando seu contaio 
com o Pascal, digile Y c < ENTER > . 
O sisiema aprescntara um menu: 

Logged drivie; 

Work file: 
Main File: 

Edit Ccimpile Run Save 

eXceule Dir Quil compiler Opllons 

Texl: 
Free: 



Para iniciar qualquer trabalho, voce 
tera que digitar W seguido do nome de 
um arquivo, Se ele ja exisiir no disque- 
te» o computador ira traze-lo para a me- 
moria; caso contrario, criara um arqui- 

vo com esse nome. 

Suponhamos que voce queiracriaro 

arquivo exemplo7, Tendo escriio esse 
nome seguido dc < ENTER > . cntre no 
modo de edifao digiiando a letra E. 

No manual de instrui^Oes que acom- 
panha o compilador^ voce encontrara 
orienta<;oes para movimentar o cursor 
por meio das teclas. Recorra a ele para 
escrever seu programa. Ao terminar. 
saia do modo de edit;ao usando co- 
mando apropriado (veja manual). An- 
tes de tentar compilar o programa, guar- 
dc-o no disquclc digitando S. 

Para compilar o programa, pressio- 
ne a lecla C. Caso haja algum erro. o 
compilador indicara em que posii^ao ele 
ocorreu. Depois de corrigi-lo, tente 
compilar o programa novamente. Se o 
comptiiador indicar que complctou a la- 
refa, execute o programa com X. 

Lembre-se de que cada declarai^ao 
precisa ser seguida de um ponto e vir- 
gula, cxceto quando depois dela houver 
um end. Uma instru<;ao composia deve 
virenireum begin eumend^Se voce co- 
locar um ponto e virgula imediatamen- 
le apos um while, um repeal ou um for, 
o computador entendera que aqueie e o 
fim da dedara^ao e ignorara os coman- 
dos seguinies a serem repetidos. 
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ORGA 




CAO 




CAMINHO CRITICO 



REDE PERT 



ATIVIDADES . TEMPOS 

E E VENTOS 

CALCULOS 



Se voce deseja montar e controlar 

qualquer tipo de projeto - da 

reforma de um automovel a compra de urn 

Jm6vel -, utilize este programa 

para se organizar e economizar tempo. 



Algumas vezes lemos que realizar ta- 
refas que incluem varias ai^oes, cada 
qual cxigindo um tempo diferenie de 
execiKpao, e todas dependendo do succs- 
so das eiapas anleriores. Sem uma boa 
dose de organiza^ao e planejamenio. e 
quase impossivei saber quais eiapas exc- 
cuiar, e em que ordem. A siiuat^ao fica 
ainda mais dLficil quando ha um prazo 
para o termino da atividade. 

Se calcularmos o lempo de execu<;ao 
de lodas as a^^oes envolvidas, veremos 
que ha sempre uma certa seqiiencia de 
eventos que determina o tempo total do 
projeio- A essa sequeticia chamamos ca- 
minho criiico. Qualquer atraso ou 
adianiamento no caminho criiico se re- 
fletira numa alieragao do tempo loma- 
do pelo projeto- Por ourro lado, uma 
aiividade que nao penenga a essa se- 
qiiencia especial podera ser atrasada sem 
causar akerat^oes no tempo total. 



O calculo do caminho critico nao e 
lao facil se eslivermos limitados ao pa- 
pel e caneta, mas, com o auxiJio do com- 
puiador e do programa que aqui forne- 
cemos, torna-se bem mais simples e ra- 
pido. O programa permiie a construcao 
de um banco de dados coniendo todas 
as aiividades, seu tempo de execupao (ou 
estimaiivas, caso nao se conhe^a o tem- 
po real) e a ordem em que elas deverao 
ser executadas- Baseado nessas informa- 
?oes, calcula o caminho cnrico bem co- 
mo o tempo livre das atividades nao- 
crillcas (aquelas que nao perlencem a se- 
qiiencia especial). Esse liliimo dado in- 
dica ao usuario por quanio tempo e pos- 
sivel interromper o projeto sem alterar 
seu prazo Hnal. 

Para o calculo do caminho critico. 
utilizam-se as lecnicas de programacao 
conhecidas como CPM (do ingles Crffi- 
cai Path Me/hod, Metodo do Caminho 
Critico). CPA (do ingles Critical Path 
Anaiy-us, Analise do Caminho Critico) 
e PERT (do ingles Program Evaluation 
and Reriew Technique^ Tecnica de Ins- 
pe<;ao e Estimaiiva de Projeio). 

Nao so projeios empresariais. mas 
qualquer projeto, por mcnor que seja, 
pode ser avaliado pelo programa. 

Vamos tomar como exemplo um pro- 



jeto que envolve a coordena(;ao de va- 
rias etapas diferentes, muitas vezes sob 
prazos rigorosos: a compra de uma ca- 
sa. O diagrama da pagina 1452 mostra 
como deveria ser o fluxo PERT para a 
execucao dessa tarefa. Os circulos assi- 
nalam os eventos, ou seja, momemos 
entre atividades cujo lempo depende de 
ouiras.Elesmar(;am,a5sim,oinicioou 
o fim de uma aiividade. As atividades 
estao descritas ao longo das linhas que 
ligam OS eventos. junto com as esiima- 
tivas do lempo necessario. 

Alfaqui, muitas atividades parecem 
incertas e varias linhas se cruzam. Em- 
bora diagrama contenha toda a infor- 
ma(;ao necessaria, ainda e dificil saber 
que atividades merecem prioridade. Nao 
se pode garantir, tambem, que o proje- 
to seja concluido dentro do prazo esii- 
pulado. Alem disso. a medida que avan- 
gamos no projeto de aquisi^ao da casa, 
epossiveiquesurjam ouiros Tatoresca- 
pazes de afetar as espectativas iniciais, 
exigindo que o diagrama seja modifica- 
do e atualizado. 

Nosso programa se encarrega de to- 
das essas questoes. Na primeira pane, 
apresencada a seguir, cuida do banco de 
dados da.s atividades; na segunda, cal- 
cula o caminho critico. 
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5 BORDER 0: PAt^ER 4: INK 0: 

7 POKE 23^b&.B-. POKE 2360<5. 
20 

iU CLS : LET f<i:se = 0: LET ma = 

IOC: J.ET rae=100: LET inh=2i;i; 
LET 3e=-l^ LET fe=-I: G05UB 
12; LET ck = f-3l3e: LET dd^O: 
LET ee-0: GOTO ^0 
i:^ L.ET 2Z^99*jy: LET trut?-l: 
LET pS^'inLroduza ": LHT n$=" 

a t EVidade" 
14 DIM wS(B5.32): LET w5(l)='* 
NenhiiTna" + aS + " = PHKCEDE o evonL 
o": LET w5(:i)-"EXCEDEtJ" 
J6 LET wS(3)-''V0CE NAO PODE U 
SAH ESTE NUMEPO ": LET WS(4)= 
p5H"texr-u Pdia este(a] " 
18 LET wS(5l-d5+"aEt'E0E A EVE 

NTO NAO DEFINIDO " 

Z2 DEF FN rr(;i)=x''Cx<0) ; 

DEF FN z(x>^x« (x>0) 

26 DIM a(mr3): DIM g (ma) 

^0 DIM w(ma)t DEF FN w[x)=AB£ 

X'(x<l)+ABn {2-x)*(x>l}^ 

OS-y FN x(x) =x* t2, 37S7:^ + x*x* ( 
l5-9402-x*x*(ia4-?44'X''x* 
688-4;?) })/l ,20667 
34 DEF FN l$(x)^CSTRS tx) +" 

-) t TO 6) 
36 DEF FN bCxJ'-x-iNT (x/2Sfn* 
25^1 

36 DEF FN p5Cx )-" — "( TO TNT 
{{fj-x)/2) ) - DEF FN *]3(^)=" 
" ( TO INT ( (6-x)/Z> ) 
40 mn i^ime) 
42 DIM xt8) 

44 DIM 3(mhJ: DIM t (mh) : DIM 
u(mli): DIM t (mh) : DIM n(rah): 
DIM u$imh,20J: DIM y<nih); DIM 

46 DIM p(mh): DIM q(mhl 

48 DEF FN u(x)^utASS x+(x^O)) 

«Cx>OJ : RETURN 

^0 CLS : PRINT "l=define "^aS 
■"2^apflga ";fi$'. PRINT "3=d*-fi 
ne evento" ■ "4=api*ga evento" 
452 60 PniNT "S-s^lva no gravador 



* ' *'6-carrega do qravador" * "7- 
tesLfl gravador " " "8-mo5tra deC 
alheo" 

62 PRINT "9-SAIDA""'iO=verif 1 
ca e ordenti a rede' 
-64 PRINT "]l=ralc com tempos 
medioa" 

66 PRINT "12=calc com inrerte 
zaa": PPTNT 

70 INPUT I: PRINT t: IF t=9 
THEN SVOP 
72 IF Kl OR t>l2 THEN PRINT 

"t=":l^" NAO RECONHECIDO" : 
COTO 1 1 4 

74 ]F t>10 AND NOT ck THEN 
)iniNT "FACA UKRIFTCACAO l>E DA 
DOS PniMETRO"^ GOTO 114 
76 IF Jd-0 AND (L>7 Oil l-b) 
THEN PRINT "IMPOSEIVEL - NAO 
FOI lNTflt)DUZlI)A NENKUMA"idS- 
GOTO 114 
m IF t>7 THEN GOTU 100 
82 IF t-6 THEN CLRAVl :' LET t 
-6 

B4 IF t>4 THEN PHIMT "Nome d 
O iirquivo:":^ INPUT f : PRINT 
fS: GOTO ion 

86 LET fS=J5: IF t>2 THEN 
LET fS = ''evHnt o" 
88 PRINT ^5:^3:" tiuinoro": 
PRINT "ou zero para Bh}f " ; 
90 INPUT u: PRINT ut LET u- 
INT ill IF u-0 THEN GOTO 50 
9? IF u<l OU \.i>zz THEN POINT 
wSCn : GOTO 88 
^14 IF t>2 TTJEN f.ET u--u 
9f> GOEUB 1^0; LET ck^false 
98 IF (t^2 OR r.-4) AND (0 = iJ(x 
) OB z-A<\iiK)) THEN PRINT "VO 
CE NUNCA USOU ESTE NUMERO" : 
GOTO 114 

100 GOSUB 20* <L = l) + LOO*t+90f)* ( 

L-IOJ* Ct>lOJ 

LI 2 GOTO bO 

114 FOll ^=^1 TO 500: NEXT t: 

GOTO 50 

120 IF O'Cutx) AND zz>-u(xj 

THEN GOSUB 942: GOSUB 932: 

GOTO 130 

122 IF a^^ma TtlEN PRINT wSUJ 

:fS: RETURN 



124 LET rta*ii+l; LET ^(aa)-x: 

LET ii<x)=u 

130 PRINT u5<4) ifSi":': : INPUT 

LiS tx) ^ PRINT uS(xl; LET xa = x 

140 PRINT pSi^jniciar evento, 

tinalizar evento':: INPUT a,f: 

PRINT s:" "it: LET s^INT a: 

LET t-TNT f 

142 IF a<l OR B>zz OH f<l OR f 

>zz THEN PRINT WS13J: GOTO 

140 
1^0 LET u=-b: GOSUB 450: IF u( 
X) <0 THEN GOTO 156 

152 IF ee=me THEN PRINT v$(2) 
;"evenLoa": GOTO J 40 
154 GOSUB 350 
1S6 LKT glxa)^x 

160 LET u^-f: GOSUB 450' IF u( 
x) <0 THEN GOTO 166 
162 IF ee=me THEN PRINT w$t2J 
:"everitos": GOTO 140 
164 GOSUB 3^0 
166 LET t (xa)-X 

170 PRINT pSi-tempo provavf>I p 
ara expcutar ";; INPUT Uxd) : 
PRINT Hxa) 

172 IT Ux^l'^.O THEN PRINT "Nft 
O PODE PKR KCrro COM EHTA VELO 
CI DADE ^' : GOTO I/O 
IBO POINT "tntrodazii eiiUtnaliv 
a de tempo cohi 90* de <:ert.e/ 
a": PUIMT "Pode Qer exenir.ido 
em -;: INPUT n(xal: pni>Jr n(x<i 
) 

182 li- nCxaXltxa) THEN PRINT 
"TSTO NAO E COMPATTUEL COH 
TEMPO PUOUAVEL- : GOTO 170 
190 RETURN 

2O0 FOU I>-1 TO iifi'. IF x = a(b) 
THEN LKT a^b 

220 NEXT b: LET a{a)''ataa): 
l.KT ij(x)=z7.+l: LET aa-aa-l; 

RETURN 

30D IF U(xj<0 THEN GOSUD ^46: 

GOSUB 933: GOTO 330 

310 IF «e-me THEN PRINT wS(2) 

: I 3: RETURN 

3J 2 GOSUB 350 



HJE 



5 CLEAR 

JO MA - lOOiME = 100:FA = D:MH 

= 212: GOSUB 12:CK - FA i GOTO 6 



12 TR = i:2S - CHRS (i3):nO$ = 

Z3 + CHRS t4):ZZ = 32766:QTS 
- CHR$ C34J 

14 PS = "FORNECA " : AS ^ " ATIVI 
DADE " 
16 DIM W$(5) :U$(1) = -NENHUMA" 

+ AS + " PRECEDE EVENTO" :W5{2) 

= "EXC^EDEU " 
L8 WSC3) - "NAO PODE USAH ESTE 
NUMER0":WS(4) - PS -* "TEXTO PAR 
A ESTE tA> " 

20 tf5(5) - " REFEBE A EVENTO NA 
O OEFINino " 
22 DEF FN A(X) = i( * (X < 0) : 

1>EF FN ZfXJ = X * (X > 0) 
2B DIM A(MA) .GtMAJ 
30 OlrtWtMA): DEf FN U(X3 ^ 



ABS (X> * (X < = 11 + ABS U 

- X) * (X > 1) 

27 DEF FM XtX) - X * {2.375/2 

+ X * X * CiS.-MOa - X ■ X * < 
184-7'14 - X ^ X * 668,472)1) / 
1. -znttd? 
40 DIM E(ME) 

44 DIM S(MHJ .F(MH1 ..U(MH1 .T(rtH) 
.N(MH) .UStMH) .Y(MH) ,Z(Mn) 
46 DIM P(MH) .tt(rtH) 
48 DEF FK U(X) - UC ABS (XI + 

(X = 0)) * <X > 0) : RETURN 
50 HOME : PRINT TAB I ^);"rit:NU 

PRINCIPAL"; PRINT : PtllNT "Oi 
= nEFlNE":AS: PHINT "02 " DELET 
A-:A5: PRINT "03 - DEFINE EUENT 
0" : PRINT -04 ^ DELRTA FVENTO" 
52 PRINT "05 = SALUA DADOS": P 
RiNT "06 = CAHREGA DADO'T" : PRIN 
T "07 = DELETA ARQ V>0 DT-SCO" : V 
RINT "08 = MOSTRA DETALHES" 
54 PRINT "09 - BEINTCJA" 
56 PRINT "10 = VEftlFICA E ORDE 
NA REDE" 

58 PRINT "11 = CALC COM DURACA 
MEDIA" 

60 PRINT "12 = CALC COM INCERT 
EZAS": PRINT "13 = SAIDA PARA " 

62 IF KKS = "S" THEN INVERSE 
: PRINT "IMPHESSORA": NORMAL 

63 IF KKS < > 'S" THEN INVEB 
SE : PRINT "TELA": NORMAL 

64 PRINT "14 = TEPMTNA- 

66 PRINT : PRINT :T = 0: INPUT 
"SUA OPCAO (1-14) ":T 

68 IF T = 14 THEN INPUT "TEM 
CERTEZA (S/N)? * : ANS ^ IF LEFTS 

[ANSrD '^ "d" THEN HOME : END 

69 IF T = 13 OR T = 14 THEN 10 


72 IF T = y THEN 900 

74 IF T < I OH T > 13 THEN PR 

INT "CODIGO" ;T: "NAO RECGNHECIDO 

": GOTO 114 

76 IF T > 10 AND NOT CCK) THE 

M PRINT "USE OPCAO (10) PfllMEI 

RO": GOTO 114 

78 IF AA ^ AND I T > 7 OH T = 

S) THEN PRINT " TMP0S5IVEL - N 
ENtillMA" ;AS; GOTO 114 
«0 IV T > 7 THEN 100 
bl ;F T = 6 THEN CLEAR ^DOS = 

CHRS {13) + CHRS (41 :T = 6 
84 IF T > 4 THEN HOME ; PRINT 

■FOnNECA NOME DO ARQ " : : INPUT 

FS: GOTO 100 
86 FS - AS: JF T > 2 THEN FS = 
" EVENVO" 

88 HOME : PRINT PS ; "NUMERO DO ( 
AJ'^lFS; PHINT "Oil ZERO PARA TER 
MINAH" 

90 INPUT U:U = INT (U) t IF U 
= THEN 50 
92 IF U < 1 OB U > ZZ THEN PH 

INT W5(l): FOR E ^ X TO JOOO: N 

EXT : GOTO 68 

94 IF T > 2 THEN U = - U 

96 GOSUB 4 50:CK = FA 

98 IF (T = 2 OK T - 4) AND (0 

= U(X) OR ZZ < U(X)) THEN PHIN 

T "VOCE NUNCA USOU ESTE NUMERO" 



; GOTO 114 

100 IF KKS = "S" AND (T > 7 AN 
D T < 12) THEN PHINT DOS"PHil" 

101 HOME : ON T GOSUB 120.200. 
J00.400.500,600» 700,800,900.100 
0,2000,3000,960 

105 IF KKS = "3" AND (T > 7 AN 
D T < 13) THEN PRINT DOS"PRt 

w 

112 GOTO 50 

114 FOft T - 1 TO 1000: MEXT : 

GOTO 50 

120 IF < U(X) AND Z2 > - U( 

X) THEN GOSUB 942: GOSUB 932: 

GOTO 130 

122 IF CAA - MA) THEN PRINT U 

$(2) ;F$: RETURN 

124 AA - AA + liA(AA) - X:U(X) 

= U 

130 PRINT WSC4) ;F$: INPUT US (X 

) : XA - X 

140 PHINT PS;''EVENTO INICIAL , 

EVENTO FINAL": INPUT S.F:S = 
INT CS) :F = INT (F) 
142 IF S < 1 OR S > 22 OR F < 
1 OR F > ZZ THEN PRINT tf3(3): 
GOTO 140 

150 U - - S: GOSUB 450: IF U (X 
) < THEN 156 

152 IF EE " ME THEN PRINT W5 t 
2) s'EVENTOS" : GOTO 140 
154 GOSUB 350 
156 S(XA) = X 

160 U - - F: GOSUB 450: TF U (X 
) < THEN 166 

162 IF EE - ME THEN PRINT W$ ( 
2) ;"EUENTOS" : GOTO 140 
164 GOSUB 350 
166 F[XA) » X 

170 PRINT PSi^TEMPO PHOVAVEL D 
E EXECUCAO" : INPUT T{XA) 
172 IF T(XA} < THEN PRINT " 
MOITO RAPIDO !l": GOTO 170 
180 PRINT "ESTIMATtVA COM 901 
DE CEHTEZA": PRINT "PODE SER FE 
ITO EM": INPUT N (XA) 
182 IF N(XA) < T(XA) THEN PRI 
NT *NAO CONFERE COM O TEMPO PRO 
VAVEL": GOTO 1/0 
190 RETURN 

200 FOR B = 1 TO AA : IF X - A{ 
B) THEN A = U 
220 NEXT B:A(A) = ACAA):U<X) = 

ZZ + 1 : AA = AA - 1 : RETURN 
300 IF U(X) < THEN PRINT "'E 
UENTOS'tXP = U{X1 : GOSUB 950: P 
RINT US(X) : GOTO 330 
310 IF EE - ME THEN PRINT W$ ( 
2) :FS: RETURN 
312 GOSUB 350 

330 PRINT WS(4);F$: INPUT US (X 
J rSCX) ^ Ol RETimN 
350 EE - EE + l:EtEE) -^ X:S{X3 
= - 1:F(X) = 0:U(X) = U 
360 T(X) = 0:N(X) - 0:USCX) = " 
" : RETURN 

400 Z = X: FOR F - 1 TO EE: IF 
E(F) =2 THEN E = F 
420 NEXT F:E(E) - ECEE):Ut2) - 

22 + 1:EE =- EE - 1: RETUIlN 
450 2 ^ U - INT ((U - I) / MH) 

* MH:Y = 2:X - 
460 IF X = AND (0 ^ U(Z) OR 



22 + 1 = U(Z) 3 THEN X - Z 

470 IF U - UCZ) THEN X - 2 : RE 

TURN 

480 iF Y - 1 OB U(2) - THEN 
RETURN 

490 2 - 2 + y - MH * INT ((2 + 

Y - 1) / MH) :Y =■ Y + Y - MH ' 

INT (CY + Y - 1) / MH) : GOTO 4 

60 

500 HOME : PRINT DOS'OPEN "FS 

505 PRINT D03"DELETE "FS 

510 PRINT DOS"OP£N "FS 

'ilS PRINT nOS"WR!TE "FS 

!=i20 PRTNT MA:ZS:ME:ZS;MH:23;AA 

; ZS:EE;ZS :CK 

^j^b IF CK THEN PRINT SE;ZS:KE 

LpfiO FOR A = 1 TO AA:X ^ A lA) 

SJ5 PRINT X;ZSUfX)ZSS (X}2?FfX) 

::5T1XlZ!::N(X)ZSGfA) /S'JS (X) 

"340 NEXT A 

^'^5 FUP E - 1 TO tIKiX = E(E) 

^50 PRINT X:Z5U(X}2SS(X)Z5F(X} 

ZST(X)ZSN(X)Z$U5(XI 

■ir,!, NEXT E 

560 FOR X = 1 TO MH : IF U (X) 

ZZ -♦ I THEN PRINT X 
565 NEXT X: PRINT 
'j/O PRINT DOS"CLOSE " FS 
S7S RETURN 
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4 HAXFILES=3 

6 OPEN "CRT:- FOR OUTPUT AS#1 

8 OPEN "LPT:" FOR OUTPUT AS#2 

10 CLEAR 2000:MH-212:ME-100:MA- 

100:FA-0:COSUB 20 : CK-FA:GOTO 14 



20 ZZ-9999:TR — 1:PS-"INTH0DUZA 

":AS-'' ATTVIDADE":ES-CHRSC13) 

30 DIMtf3(5) tWS<l)-"NENHUMA■'+A$'^ 

" PRECEDE EUENT0":WS(2)-''EXCE 

DEU" 

40 WS(3)-'*V0CE NAO PODE USAR ES 

TE NUMER0'":tfS(4)-PS+'"TEXT0 PARA 

ESTE (A) " 
50 W$(5)-"HEFEHE A EVENTO NAO D 
EFINIDO" 

60 DEFFNA(X)— X*(X<0) :DEFFNZ(X) 
— X*(X>0) 

70 DIM A(MA) .G(MA) 
80 DIM W(MA) :DEFFNW(X) "— ABS(X)* 
CX<-1)-ABSC2-X)*(X>1) 
90 DFFNX(X)-X^C2.37572+X*X*(15_ 
9402-X*X* aB4_744-X*X*688,472)) 
)71, 20667 
100 DIM E (ME) 

110 DIM S(MH) ,F(MH) ,U(MH1 .T(WH) 
.N(MH) .US (MB) .Y(MH) ,Z(MH) 
120 DIM P(MH) ,QIMH) 
130 DEFFNUCX)--U(ABSCX)-{X-0))'^ 
fX>0) iRETURN 

140 CLS:PR-1:L0CATE 12.1:PRINT" 
MENU PRINCIPAL": PRINT" l-DEFINE" 
rASi" OU EVENT0'":PRINT"2-APAGA" 
?AS:" OU EVENTO" 

150 PHINT-S-SALVA DADOS" : PRINT' 
4-CARREGA DADOS" : PRINT'S-IMPRIM 
E DETALHES'':PRINT''6-TEIIMINA' 
160 P|11NT"7-VERIFICA E ORDENA A 

REDE" 
170 PHINT^e-CALC COM TEMPOS MED nj 



36 APUCACOiS 36 



454 



lOS" 

leO PflINT''9-CALC COM INCERTEZAS 

190 TS-INKEYS:IF TS<"1' OR TS>" 

9" THEN 190 

200 T-VAL(TS) : PRINT T 

210 IF T>7 AND NOT (CK) THEN Pfll 

NT"FACA VERIFTCACAO (7) PRIMEIR 

0":COTO 380 

220 IF AA-0 AND CT>40 OR T-3) T 

HEN PRINT" IMPOSSIVEL - NAO FOI 

INTRODUSIDO" lAS :GOTO380 

230 IF T>4 THEN 350 

240 IF T-4 THEN CLEAR 2000 :T-4 

250 IF T>Z THEN PRINT"NOME DO A 

BQUIV0-:INPUTFS:G0T0 350 

260 CLS:PaiNT AS:" OU EUENTO <A 

/E) ?"; 

270 TS-INKEYS:IF T9<>"A" AND TS 

O'E" THEN 270 

260 PRINT TS:IF TS-"A'' THEN FS- 

A3 ELSE FS-" EVENTO" 

290 PRINT: PRINT PS ; F$ ; " NUMERO" 

:PRINT''OU ZERO PAHA SAIR" 

300 INPUT U:U^INT{U) :IF U-O THE 

N 140 

310 IF U<1 OR U>ZZ THEN PRINT W 

3(3) :GOT0 280 

320 IF TS-"E'' THEN U— U 

330 GOSUB 700:CK-FA 

340 IF(T-2 OT T-4) AND(0-U CX) OH 

ZZ<U(X] THEN PRINT"VOCE NUNCA 
USOU ESTE NUMER0":G0TO 380 
350 ON T GOSUB 390,590.750.830, 
890. 960, 1070, 1S50. 1660 
360 IF T<3 THEN 290 
370 GOTO 140 
380 FOR T-1 TO 1000:NEXT T : GOTO 

140 
390 IF FSOAS THEN 620 
400 IF 0<U{X) AND ZZ:>-U (X) GOSU 
B 1030:GOSUB 1000:GOTO 43U 
410 IF AA-MA THEN PR1NTW3 ( 2 ) : FS 
; RETURN 

420 AA-AA+1 :A(AA)-X^U(X)=U 
430 PRINT WSf4) i FS : INPUT US(X) : 
XA-X 

440 PRINT P$;"INTCIAfl EVEMTO. F 
INALI2AR EVENTO": INPUT S.F^S^IN 
T(S) ;F=lNTfF) 

450 IF S<1 OB S>ZZ OR F<1 OR F> 
2Z THEN PRINT WS{33:GOTO 440 
460 U=-S:GOSOB 700:IF U(X}<0 TH 
EN 490 

470 IF EE-ME THEN PRINT W9<2) ;" 
EVENTOS^iGOTO 440 
480 GOSUB 660 
490 SCXA)-X 

500 U— F:GOSUB 700:IF U (XXO TH 
EN 530 

510 IF EE-ME THEN PRINT USC2) :" 
EVEHTOS":GOTO 440 
520 GOSUB 660 
530 F(XA)-X 

540 PRINT PS: "TEMPO PROVAVEL PA 

RA EXECUTAR-: INPUT T(XA1 

b50 IF TfXAl^O THEN PRINT"NAO P 

ODE SER FEITO COM ESTA VELO 

CIDADE' :GOrO 540 

560 PRIKT'INTRODUZA ESTIMATIVA 

DE TEMPO COM 901 DE CERTEZA" : 

PRINT"PODE SEP FEITO EM" : INPUT 



N(XA) 

570 IF NfXA)<T(XA) THEN PRINT 

NAO E COMPATIVEL CQ^ TEMPO 

PROVAUEL" :GOTO 540 
580 RETURN 
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10 PCLEAR IrCLEAR ZOOO :MH-Z12 : M 

E-iOO:MA-100 :FA-0:GOSUB 20:CK-F 

AtGOTO 140 

20 22-9999:TH-'l:PS='"INTR0DUZA 

":A$-" ATIUIDADE- :ES-rHRS(131 

30 DIMUS(5) :WS(L1-''N£NHI;MA" + AS+ 

" PRECEDE O EVENTO" ^WS<2)--EXCE 

DEU- 

40 WS(3)=''VOCE NAO PODE USAfi £S 

TE NUMEnO'';US{4)-PS+"TEXTO PAHA 

ESTE(AJ - 
50 WS(5) -"HEFERE A EUENTO NAO D 
EFINIDO" 

60 DEFFNAtXl--X*(XCO) :DEFFN2(X) 
— X* (X>0) 

70 DIM A(MA) ,GIMA) 
80 DIM W(MAJ :DEFFNUfX)=-AeS{X} « 

{X<=1)-ABS(2-X) ■(X>U 

'JO DFFNX[X)-X'(2-37572-HX*X' (15. 

940 2-X*X*(ie4.744-X'X*688.4 72) 1 

)/l. 20667 

100 DIM E(ME) 

110 DIM S{MH) ,F(HH1 .U(MH) ,T(MH) 

.N(MH) .UStMiJ) .y{MH> .ZfMH) 

120 DIM P(M]J) .Q(MH> 

130 DH:FFNU(X)-'-U(ABS(X} ^X^0J>* 

tX>Ol :HETURN 

140 CLS:PR=0: PRINT §8. "MENU PRI 
NCIPAL": PRINT" I-DEFINE" ;ASi" O'J 
EUENT0'':PHINT"2 = APAGA'';A$:- UU 
EVENTO" 

150 PRINT"3-SALUA DADOS" : PRINT" 

4-CARREGA DADOS" : PRINT " 5= IMPBIM 

E DETALHES" PRINT^e-SAIDA" 

160 PRINT''7-VERIF1CA E ORDENA A 
REDE" 

170 PRINT"8=CALC COM TEMPOS MED 

IDS'* 

180 PHINT''9»CALC COM INCEHTEZAS 

" : PRINT"?- : 

190 TS = INKEYS:IF T3<"1" OH TS>'' 

9" THEN 190 

200 T=VAL(TS) :PRINT T 

210 IF T>7 AND NOT(CK) THEN PRI 

NT"FACA VERIFICACAO (7) PRIMEIR 

0":GOTO 380 

220 IF AA-0 AND (T>40 OR T=-3} T 

HEN PRINT"IMPOSSIUEL - NAG FOI 

INTRODUZIDO'iASiGOTOSeO 

230 IF T>4 THEN 350 

240 IF T-4 THEN CLEAR 2000:T-4 

250 IF T>2 THEN PRINT-NOME DO A 

RQUIUO" :INPUTFS:GOTO 350 

260 CLS:PRINT AS;" OU EVENTO (A 

/E) 7"; 

270 TS'INKEVS:IF TSO^A" AND TS 

<>"E" THEN 270 

2&0 PRINT T3:IF TS-"A" THEN FS= 

A3 ELSE FS-" EVENTO" 

^90 PRINT:PRINT P5 : F$ : " NUMEBO" 

:PflINT"OU ZERO PARA SAIR" 

300 INPUT U:U=INT(UJ :IF U-0 THE 

N 140 

310 IF UCI OR rj-'ZZ THEN PRINT U 



5(3) ;GOT0 280 

320 IF TS = '"E" THEN U = -U 

330 GOSUB 700:CK=FA 

340 IFtr = 2 OT T = 'l)AND(0 = UrX) UR 

ZZ<U{X) THEN PaiNT"UOCE NUNCA 
USOU ESTE NUMERO" .GOTO 3fi0 
350 ON T GOSUB 390.590,750,810, 
990,960.1070. 1550. 16C0 
360 IF T<3 THEN 29(J 
370 OOTO L40 
360 FOR T=l TO lOOOiNEXT T ; GOTO 

140 
390 IF FSOAS THEN 620 
400 IF 0<U(X) AND ZZV=U(X) GOSU 

B 1030:GOSUB 1000. GOTO 430 
4i0 IF AA-MA THEN PHINTWS { 2 J : FS 
: RETURN 

420 AA'AA+l :ACAA)-X:U(X)-U 
4J0 PRINT US[4) ;FSrINPUT US(X) : 
XA = X 

440 PRINT PS:"INICIAR EVENTO. F 
JNALIZAR EUENTO": INPUT S . F : S JN 
T(S) :F=TNT(F1 

450 IF S<1 OR S>ZZ OR F< 1 UR r> 
ZZ THLN PRINT WS(3):t;OT0 440 
4t^0 N'-S:UOEUB ;00-IF U(X)^0 TH 
EN 4'*0 

470 IF EE-ME THt-N P«INT WSU);" 
EVENTOS" :UOTO 440 
480 GOSUB 660 
490 S(XA)^X 

500 U*'FGOSUB 700:IF ll(X)vO TH 
EN 5 30 

510 IF EE-ME THEN PRINT W$ ( 2 ) : " 
EUENTOS" :GOTO 440 
520 GOSUS 660 
530 F(XA)^X 

540 PRINT PS; "TEMPO PROVAUEL PA 
RA EXECUTAR": INPUT T(XA) 
550 IF T(XAKO THEN PHINT"NAO P 
ODE SER FEITO COM ESTA VELO 

CIDADE" :GOTO 540 

560 PRINT''INTRODUZA tSTIMATlUA 

DE TEMPO COM 901 DE CEHTEZA" : 

PRINT-PODE SER FEITO EM" : INPUT 

N(XA) 

570 IF N(XA)<TCXA) THEN PRINT " 

NAO E COMPATIVEL COM TEMPO 

PROUAUEL":G0T0 540 
580 RETURN 



PLANEJAMENTO DA REDE PERT 



Antes de usar o programa para ava- 
liar um projeio, voce ler^ que dividi-io 
em atividades individuals e esiimar o 
tempo dc execugao de cada uma delas. 
Para isso, o mais convenienie. como jA 
vimos, e desenhar um esqucma de bio- 
cos: a rede PERT- 

A medida que for desenhando o dia- 
grams, descreva as aiividades aa longo 
das linhas de conexao entre evenios. 
Dentro dos circulos, coloque a descri- 
i^ao dos eventos. Se estes forem apenas 
passos intermediarios entre atividades, 
nao e necessario airibuir-lhes nomes es- 
pecificos- 

A versao do programa para o Spec- 
trum permite o uso de ate vinte caracie- 
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res por evento ou atividade; nos demais 
micros, podem-se utilizar 255 caracieres, 

Eniretanto, de preferencia a lifulos su- 
cintos, para nao sobrecarregar a memo- 
ria disponivel. 

Se voce tem uma no^ao mais ou me- 
nos precisa da durai;:ao de cada ativida- 
de, esLTcva esse valor no diagrama- Pos- 
leriormenre, vercmos como eslimar os 
tempos. Lembre-se, porem. dc que a 
unidade de medida de lempo escolhida 
(hora, dia. semana etc.) deve ser sem- 
pre a mesma em (oda a rede. 

O programa so funcionara correta- 
mente se a rede for vidvel do ponio de 
vista logico — deve ler apenas um pon- 
to de partida c um de chegada. e nao 
formar lapos ou caminhos circulares. 
\ O passo seguinie ao desenho da rede 
PERT e a numerai^ao de lodas as ativi- 
dades e eventos e sua introdui^ao no pro- 
grama. A ordem dos numeros nao e im- 
portante, mas o computador precisa de- 
les para trabalhar- Um metodo bastan- 
le simples consisie em numerar os even- 
tos de dez em dez, como se faz com um 
programa em BASIC — o que permife 
inserir niimeros extras cntre os ja exis- 
tenie-s, se for necess^irio, 

Quando voce for definir os eventos 
e as alividades, o computador pediri o 
niimero e a descri^ao de cada um deles, 
alcm de uma esnmativa do seu lempo 
medio e do seu lempo pessimisia (aqite- 
le que conta com 90% de possibilidade 
de nao ser ukrapassado). 

Na vida reait raramenie podemos cal- 
cular com precisao o lempo que levare- 
mos para realizar uma atividade — mes- 
mo que a tenhamos executado muitas 
vezes. Entretanto^ nao e dificil esfimar 
sua dura<;ao media» bem como sua du- 
rai;ao aproximada. Isso e tudo o que o 
programa exige em lermos de esiimaii- 
va dc lempo. No enlanto, como voce ve- 
ra, OS calculos que eie faz nao sao lao 
simples, pois devem Icvar cm conta qua- 
iro diferentes situa^oes. 

A primeira siiuacao e aquela em que 
eslamos absoluiamente seguros quanio 
ao tempo que uma certa atividade leva- 
ri. Por exemplo. se as insiru?6es para 
a constru^ao de uma casa recomendam 
que deixemos o cimenio secar por 48 bo- 
ras, e exaiamente isso que vamos fazer! 
Nesse caso, ao usar o programa, deve- 
mos indicar o mesmo valor para o tenn- 
po medio e o pessimista, 

A segunda sif ua?ao ocorre quando es- 
lamos razoavelmente seguros sobre a du- 
ra^ac de determlnada atividade. Sabe- 
mos, por exempio, que uma viagem en- 
ire as cidades de Sao Paulo e Campinas, 
de auCom6vel, demora cerca de 90 minu- 
tos, porquc ji a repetimos muitas vezes. 
sem observar grandes variances (mais ou 



menos 10%, devido a eventuais dificul- 
dades de iransito). Porianio, entramos 90 
minutos como tempo medio, e lOO mi- 
rtuios como tempo pessimista. Essa si- 
tua^ao corresponde a curva conhecida 
como curva norma! ou gaussiana^ 

A lerceira stlua(;ao e a que cbamamos 
"esperc ate acontecer". Por exemplo: 
voce so lera a certeza de que a reforma 
no lelhado foi bem feita quando come- 
<;ar a chover. Aqui» o lempo pessimista 
e cerca de 2,5 vezes maior que o icmpo 
medio. Este pode ser obtido a partir do 
numcro de dias de chuva naquele mcii 
especifico- 

A quana c tillima situa^ao cdrrespon- 
de ao lempo do *'iudo ou nada". £ mui- 
to improvavel, por exemplo, que uma 
determlnada pet;a do carro quebre, mas, 
se isso ocorrer, o veicu!o ficara na ofi- 
cina durante dez dias. Ncssc caso. tome 
o valor maximo (dez dias) como o tem- 
po pessimista, e a media aritmelica (10 
vezes 1/100, ou 1/10 de dia) como o 
tempo medio. 

Nao t nece^ssario indicar ao micro- 
compmador O grafico em que se encai- 
xa cada atividade. A maquina simples- 
menie loma as diias esiimaiivas dc lem- 
po, e efeiua os calculos, Se a diferenta 
enlreos dois vialores for deOa^O'^u, ele 
usa a curva gaussiana; sc for de 30 a 
130%, usa uma curva gaussiana modi- 
ficada. Por ouiro lado, se o valor da m<^- 
dia esnver entre 130 e 300%, o progra- 
ma recorre a curva exponencial e, se es- 
liver acima dessa porcentagem, uuHza 
a curva bimodal. 

Depois de entrar todas as atividade^ 
e suas respectivaseslimalivas dLMempo. 
voce devera enirar os evenios. Para isso, 
basta digitar o numcro c a descricao de 
cada evento no diagrama. Sc vocS eome- 
ter algum crro, chame as opi;oes de apa- 
gamento ou de modificacao de eventos 
ou atividades. 

A informacao cnirada no computa- 
dor podc ser exibida em varies fipos de 
tabela. A opi;ao "Mostre Dctalhes" 
mostrara uma lisia de (udo o que Toi en- 
irado- Se vocetem uma impre?sora, po- 
dera tamb^m obler uma copia cm papcl. 



CONSISTENCIA DE DADOS 



Antes que o computador prossiga 
com OS cdlculos, e ncccss^rio checar se 
h^ consistencia logica na rede enirada. 
Sc esta contiver caminhos circularcs, o 
programa caira cm uma alca sem fim de 
calculos e, eventualmenic, aprcseniara 
um defeito de execu^ao. 

Escoiha a optao de verifieacao e ob- 
serve o resultado. Sc tudo esiiver bem, 
o programa imprimira os numeros dos 



eventos de inicio e de fim. Enlretanto, 
se encontrar alguma inconsistencia na 
rede, emilird uma mensagem de erro, 
ideniiricando caminhos circularcs ou in- 
lerrup^oes. 



CAMII^HO CRiTiCO 



Finalmeme. selccionc a opgao para 
calcular o caminho critico. Existem duas 
alternativas: a primeira usa o tempo me- 
dio de cada atividade, e a segunda, o 
lempo incerto (pessimisia), Pe*;a anies 
a primeira aliernaiiva. 

O video mosirar^ lodas as atividades, 
seu mimero dc codigo e descri^ao. Em 
seguida, dira quando cada uma deve ser 
iniciada e eoncluida, se exisFe alguma 
folga, c se a atividade e crilica — ou sc- 
ja, seesia no caminho crilico, com fol- 
ga igual a zero, 

O Icmpo e expresso na mesma uni- 
dade que foi entrado. Assim, se voce 
usou dias, Eodos os tempos irao se refe- 
rir a dias, coniados a partir do evento 
inicial da rede. Scponhamos que a ta- 
bela indiquc que a atividade 3 deve co- 
me^ar no dia 6, tcrminar no dia 10, e 
tern uma folga de dois dias. Voce pode- 
ra cQmei;ar aquela atividade no minimo 
seis dias depois de iniciado o projeio, 
com uma lolcranciade dois dias (ou se- 
ja, se voce atrasar a atividade ate o dia 
8. o tempo (olal do projeto nao sera al- 
lerado). 

As atividades que lem folga zero de- 
vem come^ar exaiamente no dia indica- 
do; caso coniriSrio, havera um atraso no 
projeto. Se isso ocorrer, voce precisara 
recakular loda a rede, com a nova est i- 
maiiva para a atividade ou atividades in- 
fratoras. 

Se a maioria dos tempos que voce en- 
trou sao incerios, e o lempo pessimista 
^ muiio distinto do medio, use a segun- 
da opvao de calculo. pois o caminho 
critico sera diferenie. 

Quando voce escolhe essa opcao> o 
computador considera cada atividade e. 
usando o grafico de disiribuigao mais 
apropriado, seleciona um tempo ao aca- 
so, deniro dos limites proposios, A par- 
tir desse lempo, ele calciila o caminho 
critico para toda a rede, exaiamente co- 
mo na opgao anterior, e armazena os va- 
lores de inicio ede folga das aiividades, 
O processo se repete 44 vezes: em cada 
uma deias um novo numero aleatorio e 
escolhido para as atividades incertas. As 
45 rcpetiv'des (lodas sao exibidas na te- 
la) proporcionam uma amoslra razoa- 
vel para a derivacao dos valores medio^ 
de lempo. 

Os tempos de inicio e fim do projeio 
correspondem a media de 45 repeii^oes 



i« 
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ao acaso; portanio, sao bastanie confia- 
veis, A folga media das atividades nao 
crilicas tambem e indicada. 

Os valores crflicos mostram a porcen- 
Ugem da panicipagao de certa ativida- 
de no caminho critico — lOO'^o signifi- 
ca que a aiividade sera sempre critica; 
007o, que ela nunca e critica, 

O ullimo valor moslra o desvio pa- 
drao do lempo dc folga, indicando a va- 
ria^ao pQssivel da folga e, tambem, a 
confiabilidade da estimaiiva. Por exem- 
plo, se ha uma Tolga dc 1,5 diaeo des- 
vio e igual a 1, a folga pode variar en- 
tre 0,5 dia e 2,5 dias, Nesse caso, con- 
clui-se que a folga e pouco confidvel. 
Ao conirarao, um desvio padrao de 0,1 
mostra que o valor airibuido i foSga e 
basiante confiavel. 



330 PHINT WSC4) :fS;" : " : : INPUT 
US(X): PRINT U$(K): LET Si(x)- 
0: BE TURN 

350 LET ee=ee+l: LET e(te)=x: 
LET a(x}--i: LET ttx)=Ot LET u 

{X)=IJ 

360 LET t(x)=Ot LEI' nCx)=0: 

LET uS(xl ="-: RETURN 

400 LET z^x: FOB t= \ TO ee : IF 

e(n=z THt:N LET e-f 

420 NEXT f: LET e(e)=e(ee): 

LET ii(z)=zz + l^ LET ec^ = e«-l: 

RETURN 

4bO LET z^u-TNT t (u- 1 ) /mh) *tnh : 

LET Y=? : LET X^O 

460 TF X'O THEN IF O^utzl OR 

7,:i^i--=u(i) THEN LET K-£ 

470 IF U = u(zl THEN LET X-^z: 

ri:turn 

480 IF Y= I OR 0=u(xl THEN 
RE-I'UPN 

4^0 LET z = z+y"mh*TNT ((z*-v-i)/ 
mtij^ LET y- v+Y-mhMNT ((y+y-ll 
/mt\) : r,OTO 460 

ht>0 LET xtl)"»d: LET x ( -? ) =ine : 
LET Kdl-mh: LET X[4)--a-n: LFT 
x{b)'-<^^.-. LET xf6)^rk: LET xt/i 
-ant LET >t(RJ=tti; PRINT "prniiD 
lonp <KNTEH,> dpz vei^-^n" : SAVE 
fS^-^x" DATA X()t FOU X=L TO 
iQ{): Nl'X'i' X 

SlU SAVE t5+-.i- DATA a(): ^AWE 
tS-'-e" DATA e(l: SAVE fn + ^t" 
DATA f(l: 13AVE t$+"<\" DATA gt) 
- SAVE tO*":r DATA n(): SA^^hl 
fS^-3" DATA 3{): GAVE fS^'T.'' 
DATA t(): I5AVE 1 S-fu" DATA u() 
. SAVE tS+^uS" DATA u$[)^ 
RETtmN 
600 LOA[> t5+"x" DATA xO: LET 
mJ-x(Ll: LET me-xf/) - Lt^T mh-x 
OJ: LET dd-xt4): LET pe^xC'il: 
LET ck^xfb): LET Rf^^x(/): LET 
fe-xC8) ^ COSUB 13 
610 LOAD t5*-"^" DATA 3{]: LOAD 
fS^-e" DATA eO- LOAD tS+'f 
i-^ DATA fC): LOAD t'S + ^g" OATA g() 



; LOAD tS-^'-n" DATA nljt LOAD 
fS+^a" RATA b(): LOAD fS+"t" 
DATA rO: LOAD tS+'^j" DATA u[j 
: LOAD fS+"uS" DATA uS { ) : LET 
tal3e=D ; RETURN 
700 LET xtn=[na: LET x(2>=me! 
LET xCl)=mh: LET x(4)-3a: LET 
x{b)=ee^ LET xt6)=ckJ LET x(7) 
-ge: LET x{8)=fe: VERIFY fS+^x 
" DATA xt) 

7LU VEHIFV tS+"a" DATA a<): 
VERIFY t'S + ^'R" DATA e { ) : VERIFY 
fS + "f" DATA f{): VERIFY fS-^-'O" 
DATA g(); VERIFY fS+"n" DATA n 
: VEH LFY tS+"9" DATA a (1 : 
VFRIFY fS+'-t:'" DATA lU' VERIFY 
fS+"u" DATA ul): VERIFY fS+"uS 
" DATA uSt) : RETURN 
800 GOSUB ^342 

aiO FOR fi = l TO da: LET x^a^-ilt 
GOSUB 9 32 

SZO LET y=y+X+[LEN vjS(x1>4}: 
IF y>20 AND d<dd THEN GOSUB 

y40! GOSUB 942 
830 NEXT at GOSUB *M0 
840 GOSUB f*46: FOR c^l TO ee: 
LET x = e(r-l ■ tlOSUB ^JJ 
tlRO LET y-y+l+(LEN uS(x)-'^4): 
IF y?n AMD e<ct! 'I'HEN COSUB 
940 ; GOSUB '>46 
BftO NEXT e: GOTO 940 

932 PRINT FN IStFW u(9(x)n:FN 
I$CFN u(f(x)J);FN L3CUxJ);FN 
lS{nU)l :ABS u(x) ; - -;u$lx): 
RETURN 

933 PRINT ABS u(x) » u$ Cx) : 
RtVriJRN 

y40 PRINT "pressione <EMTER> p 
ura aair" : INHUT f$: CLS : 

RETURN 

942 CLS : PHINT -INTCT FINAL T 

EMPO 90* CODIGO TEXTO" 

D4A PRINT -FTNAL INICT PROVE E 

^T]H ": LET v-3: RETURN 

946 PRINT "CODIGO- ."TEXTO": 

RETURN 

^48 PRINT "PREV FINAL MIN MAX 

" : LET V=3: RETUHH 
lOOn LET cJt = tTue: FOB A"! TO aa 
: LET x-a(a) 

1020 LET z'=3(x): TF sC^XO OR z 
z<utz) THEN PRIHT u (x) ; wS <^) ; u 
(z) : LET ck=fal3e 

1030 LET z^f(x)- IF aUKO OB z 
2<u(Z) THEN PRINT u {xj ;WS (5) ; U 
tz) : LET rk=fal9e 
1040 NEXT a: IF ck-falae THEN 
CtOTO W50 
1050 LET e-1 

lOfiO LET z=e(el! IF a(z)<0 THEN 
GOSUB 400: IF e<-ee THEN GOT 
O 1060 

1070 LET e = e-H: IF G< = ee THEN 
GOTO 1060 
lOflO FOR e=l TO «e : LET z-eCe): 

LET B(z)=0: LET fC2)=0: NEXT e 
1082 FOR a^l TO ad : LET K=a(a): 

LET ait tx)) =x- NEXT a 
1090 LET ae=0: FOR e=l TO ee: L 
ET z-e(e): IF s('/)>D THEN GOTO 

1096 
1092 IF Be=0 THEN LET ae^z. GO 

TO 1096 



1094 PRINT wS(lJ:iJ(z)" IF se< = m 
h THEN PRINT uSdJlutael' ^^'^ 
ee-mh+l 

1096 NEXT e: IF ae^O THEN PRIN 
T "TODOS OS EVENTOS TEM^^aSi" ^ 
RECEDENDO" 

1098 IF ae-a OR B€>a).U THEN GOT 
17^0 

IJOO FOR P-1 TO RC: LET z=eCe): 
LET tU)-0: LET n(z)=Ot NEXT e 
i LET MseJ =1 

lUO LET last^l: FOR c-2 TO ee+ 
2' IF laalOc-l THEN GOTO U/O 
1120 FOR a = l TO aa: LET x = ^ (aj ■ 
LET y^a{x): IF L(Y)<>C'l THEN 
GOTO 1160 
1130 IF v-fCx) THEN GOSUB 1200 
: GOTO 1160 
1140 IF yOse THEN LET y = 3 ty) : 

GOTO 1130 
UbO LET y = fCx}: LET sCvl-stx): 
LET f(EJty))-Y' LET t(y)=c: LET 
fe^y : LET la9i:=c 
1160 NEXT a 

1170 NEXT c: PRINT "evento inic 
laJ=- iutse] i"evento final=";u(f 

e) 

IIBO FOR e=l TO ee: LET y=ete) 

1190 IF f(y)=0 AND yOCe THEN 

PRINT uty) :"NAO CONECTADO AO EV 

ENTO FINAL": LET ck^talge 

1192 NEXT e; IF cH THEN GOTO 1 

300 

1194 GOTO 1750 

1200 CLS : PRINT "EXISTE SEGU 

TNTE LOOP": PRINT "EVENTOS .--" t 

LET xa=a(a) 
1210 LET x = f (xa) ^ PRINT u(x): L 
ET v^9(xa) : PRINT u (y) 
1220 LET y-sEyl: PRINT u(y): IF 

yOx THEN GOTO 1220 
1230 RETURN 

1300 LET k=l: LET ak^aa; IF afl= 
1 THEN LET k-0 

1310 LET ak^INT ((ak+k)/2): IF 
ak-^0 THEN GOTO 1^00 
J 320 LET k-0: FOR a^.ik+1 TO ^a: 
LET b-a-ak: LET X^Jt^J: LET y= 
a{b) ■ LET xe^stx): LtT ye-9 ly) 
1330" IF r CyG)+ye/2Z*-"t (xe) *xe/z 
7 THEN GOTO 1 36t) 

1340 LET aU)-y: lET a (b) -x: LE 
T k-1 

1360 NEXT a: GOTO 1310 
1500 LET attel --lailL : FOR fJ last 
-1 TO 1 t'TEP -I 

]S20 FOR a--l TO aa: LET x^a<aJ. 
IF n(t (x) )^ .--d + l THEN f^OTO l'.6 
U 
155(3 LET y^Ei(xl: LET t(y)^l(H): 

[,i-:T nty* "^ 
lb60 NEXT a: NEXT d 
1600 FOR a I TO aa: LET g(a)-a( 
a): NEXT h: LET k-U LET ak-.i.i: 

IF aa-1 THEN LET k-0 
1610 LET .ik-'iNT {(ak+k)/2): IF 
ak^O THEN G{JTO 1?00 
1620 LET k=0: FOR a=ak+l TO aa: 

LET b-h-aki LET x^gtj): LET y- 

glbj: LET x<>=C(x): LET Yf' = f(Y) 
J630 IF II iY*;)*yr: /■£-/.<- =niX.f>)*-)iG/z 
Z THEN (lOTO IbtiO 
1640 LET q(d)-y: LET '?m)-x: LE 
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T lc = J 

1660 NEXT a: GOTO 1610 

1?0Q LET ck-true: RFTURN 

17^0 LET c)t = t^laP: PRINT AT 21. 
Sj-'QUALQUEH TFCLA PAHA CONTJNUA 
R": PAUSE 0: RETUHN 
2000 FOH a-- I TO da: IE7 x-dfa): 

LET z(xl-tU): NbiXT a: GOSUB 2 
100 
2020 FOB a-1 TO ^n.: LET x-aU): 

LET Y(x)=-(z(J [J^n -Y(a(xJ i=z fx) 
)*100- WEXT a 

2030 FOH b=l TO -j.a STEP S- CLS 
: FOH 3 = b TO aa + FN ^{b+^-ani): L 
ET X-a(a) 

2040 PRINT ciS:" " ; u (x) ; - = " luS (x 
) ( TO 16) 

205 LET c*y{3(x)) :. LET d=zlf fx 
)): PRINT "pode inimar ■':c;".6 
eve terminar " :d 

2060 PRINf "tempo 1 ivre "jd-c-z 
txl:" {cntico " ; y UJ i " t ) " i IF 
t=12 THEN PRINT " de3Vio=" ; q (x) 

20/0 PRIWT : NEXT a: COSUB 940: 

NEXT b: RETURN 
2100 FOH e-1 TO Re: LET y{e(cn 
=0: NEXT e 
2110 FOR a-1 TO HA'. LET x.^HCa): 

LET yff tx)l=Y(f (X))+FM /(yCiafx 
))-y(t tx) )+z(x) ) : NEXT ,i • 
2120 FOH e=i TO ee : LET ii{e(i?)) 
= V(te)r NEXT e: FOR a = fi.s TO 1 S 
TEP -1 : LET x=g(d) 
2130 LET z(a(xj)'7; tH(x) )+FN .a (z 
(t (x))-z{a{xl )-z(x)J: NEXT dr R 
ETUHN 
3000 FOR a=l TO ad i LET x=afa)! 

LET p<xJ-0: LET qCx)=0: LET y( 
x)=Ot NEXT a 
J020 FOR e^l TO ee : LET z=ete): 

LET p(z)=0: LFT ^{%)^Q: NEXT e 
3010 FOB m-1 TO 43 STEP 3: FOR 
a--l TO dd: LET w (a ) ^ ,^-*R^fD-l : ME 
XT a 
3010 FOR n=0 TO 4 STEP 2: CLS : 

PRINT -CASO 4 -;Tn+n/2;" EH 45" 
JObO FOH H = l TO dd: LET X = aU): 

LET Lx-Lfx)- TF tx='0 Tt[£N LET 

z txJ'-O: GOTO 3080 
JO^^ LET nx^n (x) : TF nx=tx THEN 

LET z(x)-tx: GOTO 3060 
J0S1 LET W-FN w(w(d} '-n/3) : IF n 
x>-tx^J THEN LET z (x I -n (x) * (w^ 
tx/nxl : C.fn'0 :iOHO 

JOc-Q IF nx-rx*2..44 THEN LET z{ 
K) --lx*LN w: CSOTO 3080 
J0;0 LET wFN x(u--b): LET 2 (x) 

=AQs ( tx+w* mx-tx) ] 

30«O NEXT .1 

3iJ'jo (;o-^;[iH iioo 

JlOO FOR a=l TO aa . LET x=a(^): 

U:t z^zCt (xJ)-y{B tx) )-z<b) 
3110 LET pCx)=p(x)+;?: LET qCxl- 
ij(K)+z"'z: LET Y(Xj-y (x) + (zvi ,e- 
6) : NEXT a 
3120 FOR e-1 TO ee- LET z^p UM : 

LET p(i)^p(zj+y{z) : LETQ(zl-q 
tz)+j(z): NEXT e: NEXT n: NEXT 
m 
3200 FOR e«l TO ee: LET z-t*(e): 

LET yCz)-VAL (FN IS{p£z)/45)) 
3210 LET I(2)=VAL (FN TSCq(z)/4 



5) J : NEXT e 

3220 FOB a^L TO qa : LET x-=a(a): 
LET y=y{x): LET y<x)-VAL ((SIR 
$ (y/45''L00)+" -) ( TO 4)J 

323^ IF p(r.Ki,e-2 THEN LET p( 
Xl=0 

3240 LET z^ (4ti'y)+l .e-g: LET zf 
x)=z ff {xn-y Cs(x))-VAL (FN :stp 
(XJ/Z)J 

3250 LET q{X)=SQB ABS ((qfxj-pf 
x)*p(x)/zl/( (z-L) + , ]e-9M : TF q 
(xXl .e-f> THEM LET tiU>-0 

3260 NEXT d: C;OTO 2030 



Q 



590 IF PSOAS THEN 630 

600 FOR B-=l TO AA:IF X = A(B) THE 

N A'B 

610 NEXT B:A(A)*A(AA) :U(X)=ZZ+1 

:AA-AA-1: RETURN 

620 IF U(X1<0 GOSUB 105t>:PRINT 

USING (III* I " ;ABS(UCX) ) i : PRINT 

US (X) -GOTO 650 
630 IF EE-ME THEN PRINT U5(2);F 
S: RETURN 
640 GOiIUB 660 

650 PRINT W5(4WFS: INPUT U5(X): 
S(XJ =0:RETURN 

660 EE-EE+L:E(EE)-X:S(X)--1:F(X 
)-0;U(X)-U 

670 TfXJ-0;N(X)-0:U5(X)-"":RETU 
RN 
680 Z-X:FOR F-1 TO EE:IF E(F)-Z 

THEN E^f" 
690 NEXT F^E(E)-£(EEJ :U(2)-ZZ+1 
;EE=EE-1:RETURN 

700 Z=-U-INT( (U-1)/MH)*MH:Y-2:X'' 


710 IF X"0 (0=-U(2) OR ZZ+I-UC2) 
)THEN X'Z 

720 IF U=U(ZJ THEN X=Z;RETURN 
730 IF y^I OR 0=U{Z) THEN HETUH 

N 

740 Z'^Z+Y-MH^INTC U+Y-IJ /MH) : Y- 
Y-l'Y-MH*INT( (Y+Y-IJ/MH) :GOTO 170 
750 OPEN "O-.l-l.FSiPRlNT ("l-M 

A;ME;MH;AA;EEjCK 
760 IF CK THEN PRlNTi- 1 , SE ; FE 
770 FOR A^I TO AA : X-A (AJ : PRINT 
#-lrX:U{X) ;S(XJ jFtXJ iT(X) iN{X) i 

CCA) ;US(X) :NEXT A 

780 FOR E-1 TO EE : 2-E (E) : PRINT# 

'1,Z;U£ZJ ;S(Z) ;FCZ) iT(Z) ;N(Z) :U 

$(Z) :NEXT E 

790 FOR X-1 TO MH : I F U(X)-ZZ+1 

THEN PRINT #-l,X 

800 BEXT X:PRrNT#-1.0 

eiO CLOSEt-1 :MOTORON;F0R X-1 TO 
lOOrNEXT X:MOTOflOFF: RETURN 

820 CLS;PRINT"SALVAH DADOS - -er 

ro:FOH K-=i TO 1000 : NEXT:EETURN 

930 0PEN''I'',*-1,F$:INPUT*-1»MA, 

ME,Mtt,AA,EE,CK;GOSUB 20 

840 IF CK THEN INPUT #-l,SE.FE 

850 FOH A=l TO AA:INPUT #-l,X.U 
(X) ,S(X) ,FCX) .T(X) ,N(X) .G(A) , US 
CX) :A(AJ-X;NEXT A 

860 FOR E-1 TO EE : INPUT*-1 .Z. U( 

Z) ,S(Z) ,FCZ) .T(Z) »N(Z) ,US(Z) :E( 

E)-Z:NEXT E 



870 INPUT *-l,X;IF X>0 THEN U CX 

>-22+l:GOTO 870 

680 CLOSE 4-l:RETURN 

890 GOSUB 1870:A'^0:GOSUB 1030 

900 FOR A-1 TO AA:X'A(AJ : GOSUB 

1000 

910 Y=Y+1:IF Y>8 AND A<AA GOSUB 
1020:GOSUB 1030 

920 NEXT A:GOSUB 1020 

930 E=0;COSUB 1050tFOB E-1 TO E 

E:X-E(E} iPBINT #PR . USING" • #•#♦ 
":ABS(UtX)) I -PRINT tPR.U$(X) 

940 Y^Y+1:IF Y>15 AND E<EE GOSU 

B 1020 :GOSUB 1050 

950 NEXT E:GOTO 1020 

960 CLS^PRINT"TEM CEBTEZA ? (S 

/NJ " 

970 TS-lNKEyS:IF TSO^S" AND TS 

<>"N" THEN 970 

980 IF T5-"N" THEN RETURN 

990 CLS: END 

1000 PRINT fPR.USINCllttl *ttt 

# #!### *#t#t i#»#l";FNU(S(X) ) 

.FNU(F(X) ) ,T{X) ,N(X) ,ABS(U(X) J : 

:IF PR=0 THEN PRINT 

1010 PRINT IPB," ": US (X) ? RETURN 

1020 IF PR-0 THEN PHINT"<ENTER> 
PAHA CONTINUAH" : INPUT FS : CLS : R 

ETURN ELSE RETURN 

1030 CLS:1F PR-0 OR A-0 THEN PR 

INT *PR,"INICTO ULTIMA VEZ 90 

t ATIVIDADE" :Y-3 

1040 RETURN 

1050 CLS:IF PR-0 OR E-0 THEN PR 

INT tPR." EVENTO TEXT0":Y-3 

1060 RETURN 

1070 CK=TR:FOR A-1 TO AA:X-A(A) 

1080 2 = S[X) rIF S(2)<0 OR ZZ<:U(Z 

) THEN PRINT AS ; U f X) : WS (5 ) ; U (Z ) 

: CK-FA 

1090 Z'FCX):1F S(Z)<0 OR ZZ<U ( Z 

I THEN PRINT AS ; U (X) ; WS (5 J ; U (Z) 

:CX-FA 

1100 NEXT A:IF CK-FA THEN 1540 

1110 E-1 

112Q Z^E(E) :IF S (ZXO GOSUB 680 

: IF E<-E£ THEN 1120 

1130 E=E+i:IF EC^EE THEN 1120 

1140 rOH E=l TO EE:Z-E(E) :S(Z)- 
D:FfZ) -0:NEXT E 

1150 FOR A-1 TO AA:X-A(A) tSCFCX 

) )-X:NEXT A 

1160 SE-0:FOR E"! TO EE:Z=E(E}- 
IF S[Z)>0 THEN 1190 
1170 IF SE-0 THEN SE-Z:GOTO 119 


1180 PRINT WS(l) ;U(Z) : IF SE<-MH 
THEN PRINT US (IJ ; U (SE> : SE-HH + l 
1190 NEXT E:IF SE-0 THEN PRINT' 
TCDOS OS EVENTOS TEM" : PRINT AS = 
"PREfrEDENDO" 

1200 IF SE'O OR SE>MH THEN 1540 
1210 For* E-^l TO EE:Z = EfE) :T(Z)- 
0:N[Z) =0:NEXT E^T(SE) -1 
1220 LA-i:FOH C^2 TO EE+2:IF LA 
OC-1 THEN 1280 

1230 FOR A-1 TO AA ; X = A t A) : Y = S (X 
) :IF T(Y)<>C-1 THEN 1270 
1240 IF Y-F(X> GOSUB 1330n;OTO 
1270 

1250 IF YOSE THEN Y='S(Y):GOTO 
1240 
1260 Y-FCX) -SlY) -S(XJ :FIS{Y))=Y 1457 
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:T(Y)-C:FE^Y:LA-C 

I2;0 MEXT A 

1200 MEXT C:PRINT''£VE«TO INICIA 

L":U(SE)i". EVENTO FINAL •'.Ut?K 

J 

1290 FOR E-1 TO EE:Y=E[EJ 

1300 IF FtY3=0 AND YOFE THtN P 

niNT UtYJl'MAO CONECTADO AO EVE 

NTO FINAL" 'CK-FA 

1310 NEXT E:IF CK THEN 1370 

1320 GOTO 1540 

1330 CLS:CK*FA:PRINT''EXISTE S 

EGUINTH LO0P":PRINT"EVENT0S ... 

" ■ XA-^A (A) 

1340 X=F(XA) SPRINT U(X);Y-S(XA) 

: PRINT U{Y) 

1350 Y*S(YJ;PRINT U(Y);IF YOX 

THEN 1350 

1360 FOR X-1 TO lOOO : NEXT : flETUH 

» 

1370 K"1:AK^AA:1F AA=1 THEN K^O 

1380 AK=IWT( tAK+K)/2) :IF AK=0 T 

HEN 1430 

1390 K-0;FOH A=AK+1 TO AA:B-A-A 

K:X-AtA)!Y-A(B):XE = S(X) :Yt:-->(Y) 

1400 IF TaEJ*YE/Z2<=XE/22 + T{XE 

J THEN 1420 

1410 AtA|=Y.AtB)=X:K-L 

1420 NEXT A:GOT0 1380 

1430 NCri;)=LA:FOR D^LA^l TO I £ 

TEP-1 

1440 FOR A=l TO AA:X'A<A):IF K( 

F{X))*;>D+1 THEN 1460 

1450 Y-S£X) :F(¥)-F (X) :N(Y)-D 

1400 NEXT A:NEXT D 

1470 FOR A-1 TO AA:OfAJ-A{AJ : NE 

XT A:K-1:AK-AA:IF AA-1 THEN K=0 

1480 AK-INT( (AK+K) /2) aF AK=0 T 

HEN 1530 

1490 K-0: FOR A=AK+l TO AA:B=A- 

AK:X-C(A) :Y-G(B) :XE-F(X) :YE-FfY 

> 

1500 IF N<YE)+YE/ZZ<-XE/ZZ*-N(XE 

) THEN 1520 

1510 C(B)=X:G(A)=Y:K=1 

1520 NEXT A:GOT0 1480 

1530 c:K^TR:HErURN 

1540 CK=FA;FOR X=l TO 1000:NEXT 

X:RETURN 
1550 GOSUB 1870: FOR A-1 TO AA : X 
=AfAl :Z(X3-T(X) :NEXT A^GOSUB 16 
20 

1560 FOB A^l TO AA;X-A(A) ; Y[X)- 
-CZ(F(X) )-Y(S(X) )=Z(X) J"10O.NEX 
T A 

1570 FOR B*l TO AA STEP 3:CLS:F 
OB A-B TO AA+FNA{B-*2-AA) :X = AfA) 
1580 PBINT#PR.AS;U tX) ; "-■':U$fX) 
1590 C=Y(S(X) * :D'Z(F(X) ) :PR1NT 
iPR."PODE INICTAR" ;Ci "DEUE TERM 

INAR" ;D 

1600 PRINTIPR, "TEMPO LiyRE'MMT 

(lOO'tD-C-ZtX) ) )/l00:" tCRITiro" 

:Y (XI : "*I - ^IF T=9 THEN PRTNTtPR 

,USlNG"DESUIO-##||.tt" ;QtX> 

1610 PRINT|PR:NEXT A:GOSUB 102O 

:NEXT B; RETURN 

1620 FOR E-1 TO EE : Y ( 6 (E ) ) =0 : NE 

XT E 

1630 FOR A-1 TO AA:X-A t A) : Y (F (X 

) )=Y(FCX) ) + FNZtY(S(X) ) -YCFfXJ ^ fr 

z[X)) :Nex:t a 

1640 FOR E'l TO EE:Z(E(En"Y tFE 



1 :NEXT E:FOR A=AA TO 1 .'^TEP-lrX 

-G(A) 

1650 ZtS(X))-Z(S(X) J-»-FNA(Z(F(X) 
)-Z(S£X) )-Z(X)) ^NEXT AiRETUHN 
1660 GOSUB lB70:FOn A-I TO AAtX 
-A (A) :PCX)=a:(i(X)-0:Y(XJ-O:NEXT 

A 

1670 FOR E'l TO EE:Z-EtE) :P(Z)=- 

0:Q (Z)*0:NEXT E 

1680 FOR M-1 TO 43 STEP 3 ! FOR A 

-1 TO AA:U(A)-2*RND(0)-1:NEXT A 

1690 FOB N-0 TO 4 STEP 2 : CLS : PR 

INT-CASC^H+N/Z; - EM 45" 

1700 FOB A-1 TO AA:X-A(A) :TX-T( 

X):IF TX-0 THEN Z(X)-0:GOTO 175 



1710 NX=N(X):IF NX-TX THEN Z(X) 

-TX:GOTO 1750 

1720 W-FNW(U(A)+N/3) :IF NX>-TX* 

3 THEN Z(X1=-NX*(W<TX/NX) ;G0TO 

1750 

1730 IF NX>TX*2,34 THEN Z(X) — T 

X*LOG(W) :GOTO 1750 

1740 W-FNX{U-.5> :ZtX)-ABS{TX+M* 

(NX-TXl ) 

1750 NEXT A 

1760 GOSUB 1620 

1770 FOR A-1 TO AA:X-A(A) :Z-Z(F 

(XI )-Y[S(X) ) -ZtX) 

1780 P(X)-PtX)*-2:Q(X)=Q(X)+Z''Z: 

Y£X)=Y(X) *(2<lE-6) :MEXT A 

1790 FOR E-1 TO EE : Z^E (E ) : P (Z) ' 

P(Z)+YfZ) :Q(^)=U(2)+-2(Z) :NEXT E 

.N,M 

1800 FOR E=l TO EE : Z= E (E ) : Y f 2) ^ 

yALaEFTS(STflSiPfZ)/45) , 6) ) 

1810 ZfZ) -VAL{LEFTS (STRS (Q fZJ /4 

5) ,6) ) 'NEXT E 

1820 FOR A=l TO AA ■ X^A ( A ) : Y = V [X 

J :Y(X)-'VAL (LEFTS tSTRS(Y745* 100 

) .4) J 

1830 IF P(X)<lE-2 THEN P(X)-0 

1840 Z^45-V+.1E-9:Z:XJ-Z (F(X) )- 

Y IS (XJ ) -VAL {LEFTS (STBS fP tX) /Z) , 

6)1 

1650 Q(XJ-SQR(ABSf (QfXJ-P<Xl*Pf 

X)/Z1/ t (Z-1 J+-1E-9J > ) :IF Q(X)<1 

.E'6 THEN e(X)=0 

1660 NEXT A;GOTO 1570 

1870 IF(PEEK(65314)AND1)-1 THEN 

RETURW ELSE CLS : PRINT'^TELA OJ 
IMPRESSORA (T/1) ? " 
1880 Q5 = INKEYS:IF QSO'T" AND Q 
3<>''I- THEN 1880 
1890 IF QS'"*!" THEN PR = -2 
1900 CLS: RETURN 



aiE] 



600 HOME : PRINT DOS"OPEN " FS 

605 PRINT DOS"READ "FS 

610 INPUT MA,ME,MH.AA»EE.CK: G 

OSUB 12 

615 IF CK THEN INPUT SE.FE 

620 FOR A = 1 TO AA 

625 INPUT X,U(X) ,S fXj .F(X) ,T<X 

) ,NtXJ ,G(A) ,UStX) rAtA) = X: NEX 

T A 

630 FOR E = 1 TO EE 

635 INPUT X.UtX) .S(X) .F(X) .T(X 

) ,NtX) .US{X) :E(E) - X; NEXT E 

640 INPUT X: IF X > THEN U (X 



) - ZZ -*- 1 : GOTO 640 

f,45 PHINT DOS^CLOSE " F5 

650 RETURN 

700 PRINT DOS^OPEN "¥$ 

710 PRINT D05"DELETE "FS 

720 PHINT DOS"CLOSE " FS 

730 RETURN 

aOO GOfiUB ^4 2 

flJD FOR A = 1 TO AA:X = A tAJ : 

GOSUB 932 

820 Y -^ Y + 1 + f LEW CUS(X) ) > 
12) ; IF Y > 20 AND (A < AA) TH 
EN GOSUB 940 : GOSUB 942 
630 NEXT A: C^OSUB 940: PRINT ' 
EV£NTOS":Y = 3 

B40 FOR E = 1 TO EE:X = E(E1:X 
P = U[X): COSUB 950: PRINT US (X 

) 

850 y = Y + 1 + t LEN {U5(X)1 > 
12) : IF Y > 20 AND E < EE THEN 
GOSUB 940 t GOSUB 946 
860 NEXT E: GOTO 940 
900 INPUT "REINTCIA PROGRAMA 
(S/N)? -iANS: IF LEFTS {ANS.l 
) = "N" THEN 50 

910 IF ANS < > "S" THEN 900 
920 RUN 

932 XP - FN U(StX)): COSUB 950 
■XP = FN U(F(XJ): GOSUB 950:XP 

= TtXJr GOSUB 950:XP = NCX) 

933 GOSUB 9S0:XP - ABS CU (X) ) 
■ GOSUB 950 

935 PRINT ; PRINT "TEXTO = ";U 
S (X) ^ RETURN 

940 IF KKS <. > "S" THEN PRIN 
T "<RETUBN> PARA CONTINUAR' : : I 
NPUT FS: HOME : RETURN 

941 RETURN 

942 HOME : PRINT "ATIVIDADES: " 

943 PHINT " — EVENTOS TEMP 

944 PRINT "FINAL INICI PBOVL E 
STIM CODlGO-'iY " 3: RETURN 

950 XPS = LEFTS ( STPS (XP) + 
-,6J: PRINT XPS;: RETURN 

960 HOME : PRINT "SAIDA P/ IMP 

RESSORA fS/NS7" 

970 GET KK$: IF KK$ < > "N" A 

ND KKS < > "S' THEN 97D 

980 RETURN 

lOOD CK = TR: FOR A - 1 TO AA:X 
= A (A) 

1020 XE - StXJ : IF S(XE) < OR 
ZZ < UtXE) THEN PRINT U(X):WS 

(5) tU(XE) ^CK = FA 

1030 Z = F(X) : IF S(Z) < OR Z 

2 < U(Z) THEN PHINT U(X) ;WS{5) 

:U(2) :CK = FA 

1040 NEXT A: IF (CK = FA) THEN 
1750 

1050 E = 1 

1060 X = E(E): IF S{X) < THEN 
GOSUB 400: IF E < - EE THEN 

1060 

1070 E = E + 1: IF E < - EE TH 

EN 1060 

1080 F09 E - 1 TO E£:X = E(E}: 

S(X5 = 0:FtX) - 0: NEXT E 

1062 FOR A = 1 TO AA:X = AlA): 

S(F(X) ) - X: NEXT A 

1090 SE - 0: FOR E = 1 TO EE:X 

= EtEJ: IF S(X) > THEN 1096 



1092 IF SE = THEN SE - X ; GO 
TO 1096 

1094 PRINT WS(1) ;UCX) ■ IF SE < 
= MH THEN PRINT U$ ( 1 ) ; LT ( SE) : 
SE - MH *- 1 

1096 NEXT E: If SE =^ THEN P 
RINT -TOOOS EUENTOS TE« "jASj" 
PHECTDENDO" 
1098 IF SE: = OR (SE > MH ) TH 

EN i;so 

1100 FOB E " 1 TO EE:X = E £E) : 
TCXJ = a:ig(X) = 0: NEXT E;TCSE) 

= 1 
1110 LA = 1: FOfl C = 2 TO EE + 
Z: IF LA < > C - 1 THEN 1170 
1120 FOR A = 1 TO AA-X = A (AJ : 
Y = S(X) : IF T(YJ < > C - 1 TH 
EM libO 

1130 IF y = F<X) THEN GOSUB 1 
200: GOTO 1160 

1140 IF {y <. > SEl THEN y - S 
(yj ■ GOTO lliO 

11!^0 y '^ F<X) :S(Y) - SiX);F(S(y 
) ) = y-T(Y) = C:FE = y:LA = C 
1160 NEXT A 

1170 NEXT C: PHTNT " EVENTO INI 

CIAL -"iUCSE);", EVENTO FINAL = 

":U(FE) 

1180 FOB E = 1 TO EE:y - E<E) 

1190 IF F(Y) - AND (Y < > F 

E) THEN PRINT U(Y);"NAO COKECT 

ADO AO EVENTO FINAL" :CK = FA 

1192 NEXT E: IF CK THEN 1300 

1194 GOTO 1750 

1200 HOME : PRINT "EXISTE SE 
GUINTE LOOP " : paiNT "EVENTOS.- 

-" -XA = At A) 

1210 X = F(XA): PRINT U(X)-Y = 
S(XA) : PRINT U(Y) 

1220 y = StYJ: PRINT U(¥): IF Y 
< > X THEN 1220 

12 30 RETURN 

1300 K = 1:AK = AA: IF AA = 1 T 

HEN K = 

13JD AK ' INT ((AK + K) / 2)r 

IF AX = THEN 1500 

1320 K = 0: FOB A = AK + 1 TO A 

A:B ^ A - AK:K - AtA):y = A<B): 

XE = S(X) tYE = 5(Y) 

1330 IF T(YEJ + YE / ZZ < = T 

(XE) + XE / 22 THEN 1360 

131U A(A) =■ Y:A(BI - X;K - 1 

IJbO NEXT A: GOTO 1310 

1500 NCFE) = LA: FOR = LA - 1 

TO 1 STEP - 1 
1^20 FOB A =^ 1 TO AA:X = A(AJ : 
IF N(F(X)) < > D 4 1 THEN 156 
Q 

155D Y = S(X):FfV) = FCX)rN(y) 
^ 13 

1560 NEXT A»D 

1600 FOR A = 1 TO AAtGfAl = A( 
A> : NEXT A:K = 1 : AK ^ AA : IF AA 

- I THEN K - a 
lOlO AK = INT t (AK + K) / 2) : 
IF AK = THEN 1700 
lt.20 K = 0: FOR A - AK + 1 TO A 
A:B = A- AK;X = GCAj-y <= G(B)^ 
XE = F(X) :yE - F^Y) 
1630 IF N(yE) + YE / LiZ < = N 
(XE) ^- XE / Z2 THEN 1660 
1650 G<B) ^ XtGCA) = Y:K ^ 1 
1660 NEXT At GOTO 1610 



1700 CK = TB : BETUPN 

1750 CK = FA: INPUT "TECLE <HET 

URN>" ;HG5- BETUBN 

2G00 FOR A = 1 TO AA : X = A (A) r 

Z(XJ - T(X): NEXT A: GOSUB 2100 

2020 FOR A = 1 TO AA t X = A {AJ : 

Y<X) = (Z(FtX) ) - YfS(X) ) = ZtX 

)) -^ 100: NEXT A: GOSUB 2100 

2O30 FOR B = 1 TO AA STEP 5: H 

OME ^ FOR A - B TO AA + FN A(B 

^- 4 - AA) :X =^ A(A) 
20-10 PRINT : PRINT AS:U(X1:'' = 

"iU5(X} 
2050 C = YfSCXJJ :D ^ Z(F{X) 1 
2055 PRINT "PODE INICIAR "i IN 
T (C * 100) / IOC:". DEVE TEHMI 
NAR " INT (D ' 100) / 100 
2O60 PBINT "TEMPO LIUBE ^ "; I 
NT ( tD - C - ZfX)) * 100) / 100 
;" C; INT {y[X) • 100) / 100; 
"l CRTTICO)" 

2065 TF T - 12 THEN PRINT "DE 
SyiO = " ; TNT (OfX) * 100) / 10 
0; 

20 70 PRINT ■ NEXT A' r.lQSUB 940 
■ NEXT B: RETURN 

2100 FOR E = 1 TO EErYCEtE)) = 
: NEXT E 

2110 FOR A - 1 TO AA:X - A(A): 
y[F£X)) = YCFCX)) + FN Z(¥(S(X 
) 1 " Y(F(X) ) + Z (X) ) : NEXT A 
2120 FOR E = 1 TO EE:ZfE(E)) = 

V(FE) : NEXT Er FOB A = AA TO 1 

STEP - 1:X = G<A) 
2130 Z(S(X)) ^ Z<S(X)) + FN A( 
Z{F(X)) - Z(SfXJ) - 2(X)): NEXT 

A: RETURN 
3000 FOR A = 1 TO AA;X = ArfAJ^ 
P(X) = 0:Q(X) = O^Y(X) = 0: NEX 
T A 

3020 FOR E = 1 TO EE : X = E(E): 
i^(X) = 0:QtX) = 0: NEXT E 
3030 FOB H - 1 TO 43 STEP 3: F 
OR A = 1 TO AA:W:AJ = 2 * RND 
(1) - 1 : NEXT A 

3040 FOR N = TO 4 STEP 2: HO 
ME : PBINT "CASO #" :M + N / 2:" 
/4 5" 

.^050 FOR A = 1 I'O AA:X = ACA) : 
TX = T(X): TF TX = THEN Z(X) 

^ 0: GOTO 3080 

3052 NX = N(X); IF (NX - TX) TH 

EN 2(X) = TX! GOTO 3O80 

3054 W = FN W(W(A) + N / 3) : 1 

F NX > = TX * 3 THEN Z(X) - NX 

■ CW < TX / NX): GOTO 3080 
3060 IF NX > TX >* 2.34 THEN Zt 
X) 4= - TX * LOG (W) : GOTO 308 


3070 U - FN XCW - .^) :Z(X) ^ 
ABS (TX + W * (NX - TX) ) 

30BO NEXT A 

3090 GOSUB 2100 

3100 FOB A = 1 TO AA;X ' A(AJ: 

2 - Z{F(X) ) - Y{S (X) > - Z(X) 

3110 P(X) = P(X1 + 2:0CX) - Q(X 

) * 2 * Z: Y{X) ' Y(X) - <Z < 1. 

E - 6) : NEXT A 

3i;^0 FOB E = 1 TO EEjX -= E(E) '. 

9{X) ° PCX) + Y(X) :QCX) - Q{X) 

+ ZfX) : NEXT E.N,M 

3125 IF KKS = "S" THEN PRINT 

DOS"PR| 1" 



3200 FOR E 
YCX) = UAL 
J / 45) ,6)) 
3210 Z(X) = 
CQ{X) / 45) 

3220 FOR A 

y = y EX) :y{x 

( STRS (Y / 
3230 IF P(X 
X) = 
3240 Z = {4b 
) = /-(F(X)) 
LEFTS ( STB5 
3250 Q(X) = 
^ P(X) / Z) 
9)) : IF Q(X) 
) - 
32faU NEXT A 



= 1 TO EElX ^ E(E) : 
< LEFTS ( STRS {PtX 

VAL ( LEFTS i STRS 
.6) ) : NEXT E 

- 1 TO AA:X - A(A) : 
) = - VAL ( LEFTS 

45 * 100) .4) ) 
) < l.E - 2 THEN PI 

- VI + -IE - 9:ZtX 

- Y(E(X) ) - VAL ( 
(P(X) / Z) .6) J 

SOR ((Q(X) - }'(X) 
/ ( (Z - 1) ^ AE - 
< i.E - IH™ QIX 

GOTO 2030 



m 



5^0 IF FS<>A$ THEN 680 

600 FOR B-1 TO AA:IF X=AfB) THE 

N A=-B 

610 NEXT B:ACA)-A(AA} rU{X)-ZZ+i 

:AA-AA-1: RETURN 

620 IF U{X)<0 GOSUB lOSOiPRINT 

USINC(f***t 'rABStU (X) ) : PRINT 

US(X> :GOTO 6S0 
630 IF EE-ME THEN PRINT WS(2):F 
S:BETURN 
640 GOSUB 660 

650 PRINT US(4J :FS;INPUT US(X); 
S(X)=0:RETURN 

660 EE-EE+1:E(EE) =X:S(X) --3 :F(X 
)=0:UtX)-U 

670 T(X)-C:N(X)-0:US(X)--'':B£TU 
RN 
680 Z-X:FOR F-1 TO EE:IF E(FJ-2 

THEN E=F 
690 NEXT F:E(E)-E(EE) ;U(Z)=Z2+1 
:EE=EE"1:RETURN 

700 Z-li-INT( (U-1) 7KH3 "MHiy-2:X- 


710 IF X-0 (0-U(2) OR 2Z+l-UfZ) 
)THEN X-Z 

720 IF U-U(Z) THEN X-Z:BETUftN 
730 IF V-1 OB O-U(Z) THEN RETUR 
N 

740 Z-Z+Y-MH*TNTCa+y-l) /MH) ;y = 
Y+Y-MH*INT{CY+Y-1)/MH) :C0T0 170 
7S0 OPEN "CASi^+FS FOR OUTPUT A 
5 #3 

755 PaiNT|3. MA25MEZ5MHZSAAZSEE 
ZSEEZSCKZS 

760 IF CK THEN PniNT#3 .SEZSFE 
770 FOR A=l TO AA:X=A(A) ^ PRINT 
|3,XiZ5U(X)Z$S(X)ZSF(XJ25T(X)Z5 
N{X)Z5G(A>Z3U$[X) :NEXT A 
780 FOR E=l TO EE : Z=E ( E) : PRINT* 
3.Z;ZSU(Z>ZSS(Z)ZSF(Z)ZST(Z)Z$N 
(Z)Z5U$(Z> :NEXT E 
750 FOR X-1 TO MH:IF U{X)-ZZ+1 
THEN PRINT #3,X 
800 BEXT XtPRINT|3.0 
810 CL0SE|3:MOTOR0N:FOR X=l TO 
lOOrNEXT XiMOTOBOFF ^PETUPN 
820 CLSlPRINT'SALVAR DADOS - er 
ruiFOR K=l TO 1000 :NEXT:RETUHN 
630 OPEN ■'CAS:''*F3 FOR INPUT AS 

|3;INPUT l3.tlA,ME,MH,AA.EE.CK: 
GOSUB 20 



840 IF CK THEN INPUT •3.SE»FE 

850 FOB A=I TO ftA: INPUT |3,X,U( 

X).S(X) .nX),T[X).NtX].G(A),US( 

X] :A(A)=X:NEXT A 

860 FOH E=L TO EE: INPUTf3. Z,U {Z 

) ,S(2) ,F(Z) .1(2) .M(Z) .USfZ) :E(E 

)-Z:NEXT E 

870 INPUT t3.X:IF X>0 THEN U (X) 

=ZZ+1 ;GOTO 870 

8B0 CLOSE •3:RETUPLN 

990 GQSUB 1870 :A-0:GOSUB 103O 

QOO FOR A=l TO AAiX=A(A) :GOSUB 

1000 

910 y=^Y + l:IF Y>8 AND A<AA GOSUB 

1020:GOS]JB 10 30 
920 NEXT A:GOSUB 1020 
930 E=0rGOSUB L050:FOP E=l TO E 
C:X=E£E) iPHlNT #PB .USXNU" ill #» 
' iABSfUiX) ) ; :PRINT |PR,UStXj 
940 Y=V-*-l-IF Y>15 AND E<EE GOSU 
S 1020:GOSUB 1050 
950 NEXT ElGOTO lOZO 
960 CLS:PRINT''TEM CEHTEZA ? (S 
/N) - 

970 TS^INKE¥S:IF TS^: "S" AND TS 
O'-N" THEN 970 
980 IF TS^'-N- THEN HETUHN 
990 CLGrENC 

1000 PRiNT tPk-USlNClMli *•»* 
I tll*« lt<l< Mlll":ENUfStX)) 

,FNUtFCX}) .T(X) ,N(XJ .ftBSm(XM : 

:IF PR=0 THEN PRINT 
1010 PRINT IPR." " :IJ$ (X) :RETURN 
1020 IF PR'l THEN PRINT" >: ENTEH> 
PAHA CONTrNUAfi": INPUT FS:CLS:R 
ETUHN ELSE RETURN 
1030 CLS:IF PR^l OR A=0 THEN PR 

INT IPR."INICIO ULTIMA VEZ 90 

1 ATIVIDADE" :y'3 

1040 RETURN 

1050 CLS:IF PH= 1 OR E-0 THEN PP 

INT |PR. " EVENTO TEXTO" :Y=2 

1060 RETURN 

1070 CK-TB:FOR A= I TO AA:X=A(AJ 

1030 Z-S(X):IF S(2)<0 OR 2Z<U £2 

) THEN PRINT AS ^U (X) s WS ( 5) ; U (Z) 

:CK=FA 

109D Z'^F(X):IF StZJCO OR ZZ<U(Z 

) THEN PRINT AS : U (X) ; WS ( 5 ) ; U (Z) 

;CK=FA 

1100 NEXT A:IF CK-FA THEN 1540 

UiO E-1 

1120 2=E(^):IF S(Z)<0 GOSUB 680 

:IF E<=EE THEN 1120 

1130 E-E+1:IF E<-EE THEN 1120 

1140 FOR E=l TO EE:Z-E(E) :SCZ)- 

0:r(2)-0:HEXT E 

1150 FOR A=l TO AA:X=-A[A) :SCF(X 

))=X:NEXT A 

1160 SE=0:FOR E=l TO EE:Z=ECE)- 

IF S(Z)>0 THEN 1190 

1170 IF SE-'O THEN SE = Z:GOTO 119 



UeO PRINT WS (1) iUCZj :IF SEC-MH 
THEN PRINT U$£l) :i;(SE} : SE=rtH + l 

1190 NEXT E:IF SE-0 THEN PRINT" 

TODOS OS EVENTOS TEM" ; PRINT A$ : 

-PRECEDENDO" 

1200 IF SE-0 OR SE>MH THEN 1540 

1210 FOR E=i TO EEtZ-ECE:) :TCZ)- 

0:N(21 -0:N£XT E:T(S£) -1 

1220 LA-1:F0B C-2 TO EE+2:IF LA 
^ OC-1 THEN 1280 



1230 FOR A-1 TO AA:X*A(AJ -Y-ECX 

) :IF TCY)<>C-1 THEN 1Z70 

1240 IF Y=F(X) GOSUB 1330:GOTO 

1270 

1250 IF YOSE THEN Y-S(Y);GOT0 

1240 

1260 Y^F{X) :S(YJ'S[X) :FCS(Yi )=Y 

:TCY)=C:FE-Y:LA=C 

1270 NEXT A 

1280 NEXT C:PHlNT"EVENTO INICIA 

L";U£SE):". EUENTO FINAL ":U(FE 

) 

1290 FOR E=l TO £E:Y=E[EJ 

nOO TF FfY)'0 AMD YOFE THEN P 

RTNT U(¥)i"'NAO CONECTADO AO EVE 

NTO FINAL" !CK=FA 

1310 NEXT E:IF CK THEN 1370 

1320 GOTO 1540 

1330 CLSrCK = FA:PRINT-EXISTE O .t: 

EGUINTE LOOP" :PRINT"'EVENTOS ... 

" - XA=A (A) 

1340 X^F(XA) :PRINT U CX) :¥=S(XA) 

:PRINT U(V) 

1350 Y = S(V):PRINT U [Y) : IF Y^.'X 

THEN 1350 

1360 FOR X-1 TO 1000 :NEXT:RETUR 

N 

1370 K=1:AK=AA:IF AA= 1 THEN K=0 

1380 AK-IKT((AK+K)/2) ^IF AK=0 T 

HEN 14 30 

1390 K-0:FOR A-AK+1 TO AA:B"A-A 

K:X=A<A) ;Y-A{B) : XE-S (X) : YE-S(Y) 

1400 IF T<Y£j+YE/2Z< = XE/'ZZ+T{XE 

) THEN 1420 

1410 A(A)=Y:A(B)=X:i<-l 

1420 NEXT A:GOTO 1380 

14J0 M(FE)=LA:FOR D=LA-1 TO 1 S 

TEP-1 

1440 FOR A-1 TO AA:X-A(A) : IF NC 

F(X) K>D+1 THEN 1460 

1450 Y-S(X) :F(Y]-F(X) iNCYJ'D 

1460 NEXT AtNEXT D 

1470 FOR A-1 TO AA : G ( A) =A (A ) : N£ 

XT AiK-liAK-AAilF AA-1 THEN K-0 

1480 AK-INT( CAK+K)/2) :IF AK=0 T 

HEN 1530 

1490 K'^O: FOR A-AK+1 TO AA:B = A- 

AK:X=G(A) :Y'G(B) :XE=F(X> rYE-FEY 

) 

1500 IF N(YE) +YE/ZZ<=XE/Z2+NIXE 

) THEN 1520 

1510 G(B)-X:G[A)-Y:K=1 

1520 NEXT A:GOT0 14S0 

1530 CK-TB:RETURN 

1540 CK-FA: FOR X=l TO 1000: NEXT 

X: RETURN 
1550 GOSUB 1S70IFOH A-1 TO AA:X 
=A£A) :21X)-TCX) :NEXT A:GOSUB 16 

20 

1560 FOR A'-l TO AA: X-A (A) : Y (X) = 

-{Z[F<X)) -Y(S(XJ )=ZtX) )'*iaO:NEX 

T A 

1570 FOR B-1 TO AA STEP 3 : CLS : F 

OR A»B TO AA+FNAtB+Z-AAJ :X=A(A) 

l^SO PRINT#PR,AS;U(X) ;" = "';US(XO 

1590 C=Y£S(X) ) :D=Z£F(X) ) rPRlNT 

»FR."PODE INICIAR" iCi'DEVE TERM 

INAR" ;D 

1600 PRiNTtPB. "TEMPO LIVHE" ; TNT 

ilOO'(D-C-Z(X)))/100:''(CRITICO'- 

:YfX) rt)" -.1? T = 9 THEN PRINT|PR 

,USING"DESVIO=l»t* ,tr ;Q(X) 

1610 PRlNTtPR:NEXT A:GOSUB 1020 



:NEXT B; RETURN 

1520 FOR E=l TO EE : Y £ E C E) 1 =0 : NE 

XT E 

1&30 FOR A=l TO AA:X=A(A) : Y(F(X 

))=Y(F(X) )+FNZtY (StX) J-Y(FCX) ) + 

ZCX) ) :NEXT A 

1640 FOB E=l TO EE:Z(E(E) )=Y(FE 

):NEXT E:FOR A=AA TO 1 STEP-1:X 

=GIA) 

1650 Z£SfX))=Z(S(X)J + FKAtZ(F£X) 

)-Z{SlX) )-Z(X) ) ^NEXT A:RETURN 

1660 GOSUB 1870:FOR A^-l TO AA:X 
-A (A) :P(X)-0:QfX)=0:Y(X>-0:NEXT 

A 

1670 FOR £-1 TO EE:Z-E(E) :PtZ)= 

0:Q(Z}-O:NEXT E 

1660 FOR M'l TO 43 STEP 3 : FOR A 

-1 TO AA;WtA)-Z*RND(0)-l:NEXT A 

1690 FOR N'O TO 4 STEP 2:CLS;PR 

INT''CASO'' ;M+N/2:" EM 45" 

1700 FOR A-1 TO AA; X-A CA) : TX-T ( 

X):IF TX=0 THEN 2(X)=0:GOTO 175 



1710 NX^N{X) :IF NX-TXTKEN 2(X) 

=TX:GOTO 1750 

1720 U = FNWfU(A)+N/3) :IF NX>-TX'* 

3 THEN Z (X)=-NX*(U'?TX/NX) iGOTO 

1750 

1730 IF NX>TX'Z-34 THEN Z(X)--T 

X*LOG £W) :GOTO 1750 

1740 U=FNX(W-.5J :2£XJ=ABS(TX+W* 

(NX-TX) ) 

1750 NEXT A 

1J60 GOSUB 1620 

1770 FOR A = l TO AA : X=A <AJ r Z-^Z CF 

(X] )-Y(S (X)) -Z(X) 

1780 P(X)=P(X)+Z:QtX)-Q(X)'*'Z*Z: 

Y(X)=Y{X)+CZ<lE-6) :NEXT A 

1790 FOR E'l TO EE ; 2-E < E) : P f Z ) = 

P(Z)+Y(Z) ^Q{Z)=QCZ)+2(2J :NEXT E 

,N.M 

iSOO FOR E=i TO EE:Z=E(EJ : Y(Z) = 

VAL (LEFTS (STRS(P(Z) /45 3 ,6) ) 

ISIO ZCZ)=UAL(LEFTS(STBS(Q(Z}/4 

51,6)) tNEXT E 

1820 FOR A=l TO AAi X=A (AJ ; Y=Y <X 

) :Y(X)=-VALCLEFTS(STRS(y/45*100 

) ,4)) 

1830 IF P(X)<lE-2 THEN P £X) -0 

1840 Z=45"Y+.1E-9:Z tX)-ZtF(Xl)- 

YfS(X))-VALC LEFTS (STRS (PCX)/Z) , 

6J ) 

1850 Q(X)-SQR£ABS((0(X)-P(X)*P( 

X)/Z>/( f2-l)+.lE-9) ) ) :IF fXXl 

.E-6 THEN 0(X)-0 

1860 NEXT A:G0T0 1570 

1870 Cr.S:PRINT''TELA OU IMPRESSO 

RA fT/I) ?" 

18S0 QS^INKEYS:IF QSC>"T" AND Q 

SO"!" THEN 1880 

1690 IF CS^"!" THEN PB-2 

1900 CLS:RETURN 

Se voce lem um acionador de disque- 
tc acoplado ao seu MSX. pioccda as se- 
guintcs modificai^oes: 

750 OPEN "A:"+F5 FOR OUTPUT AS 

S30 OPEN "A:"+FS FOR INPUT AS|3 
:INPUTt3,MA.ME,MH.AA.EE.CK:G0SU 

B 20 





W LINHA 


FASRICANTE 


MODELO 


FABfltCANTE 


MODELO 


PAIS 


TBBIT^^^ 


ft Apple 11 + 


Applet ronica 


ThoraUlO 


Apple tronloa 


ThoraoiO 


Brasli 


Apple 11 + 


^K Apptell-i' 


CCE 


MC-4000£xatO 


Apply 


Apply 300 


Brasil 


: 5jnclairZX-ei 


^E Apptellt 


CPA 


Absolulus 


CCE 


MC-4000 ExalO 


Braall 


Apple 11 + 


K Apple lU 


CPA 


Polaris 


CPA 


AbfiolutUG 


Brasli 


Appleil-v- 


^P Apple 11 + 


DigilUS 


DGTAP 


CPA 


Polaris 


Brasli 


AppielH ? 


^K Apple 11 + 


Oismac 


D^StOO 


Cod 1 men 


cs^&oa 


Brasli . 


TRS- Color 




¥ Appio 11 + 


ENIAC 


ENIAC II 


Digitus 


OGTtOO 


Brasli 


TRS'UModlll 




t Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1DO0 


Brasli 


TRSaOMod.m 




i Apple 11 + 


HouGion 


Houston AP 


Digitus 


DGT'AP 


Brasli 


Apple 11 + 


K Apple IL+ 


Magnex 


DM II 


Dismac 


O-SOOO 


Brasli 


TfiS'M Mod 1 
TRSflOMod-l 


B Apple 11 + 


Majcilronica 


UX-2001 


Difimac 


D-aODi;2 


Braaii 


■ Apple 11+ 


Maxllronica 


MX'46 


Dismac 


D-eioo 


Bresii 


Apple 11 + 


^B Apple 11 + 


Meiiironlca 


MX^64 


Oynacom 


MX-1600 


Brasli 


TBS-Colof 


^K Appleii + 


Maui [ronica 


Maxitronlcl 


ENIAC 


Et4IACII 


Brasli 


Apple 11 + 


H Apple 11 + 


Mlcfocrall 


CrafllPluA 


Engebras 


AS-IDOO 


Brasli 


Sinclair ZXai 


^B Appjen+ 


Milmar 


Apple II Pius 


Filcras 


NEZ8000 


Brasli 


Sinclair ZX-ai 




Apple 11+ 


Mirmar 


Apple Master 


Prankiin 


Franklin 


USA 


Apple 11+ ' 


" 


Apple JI+ 


Wllmar 


Apple Senior 


Gr^dl^ntQ 


Expert GPC1 


Brasil 


MSX 




Appjell+ 


Omega 


MC-400 


Houston 


Houston AP 


Brasli 


Apple II + 




Apple 11 + 


PolymaK 


Manxl 


Kemllron 


MBjaBOO 


Brasli 


TRS^ModJii 




Apple JI+ 


Polymax 


Poly Plus 


LNW 


LNW-aO 


USA 


TRS-BOMotfJ 




Apple [l + 


Sped rum 


Microengenho 1 


LZ 


Color 64 


Brasli 


TRS -Color 




Apple N + 


Speclrum 


Spectrum ed 


Magnex 


DM 11 


Brasli 


Apple 11 + 




Appl«ll + 


Suporte 


Venus LI 


MaKJtfonica 


MX^2001 


Brasli 


Apple 11 + 




Apple 11 + 


Sycomlg 


SICI 


MaRitronica 


MX^48 


Brazil 


Apple 11 + 




Apple 11+ 


U nitron 


APII 


Maxltronica 


MX64 


Brasil 


Apple 11 + 




Applftll + 


Victor do Brasil 


ElppallPlu? 


MaNllionlca 


Maxitronic 1 


Brasli 


Apple 11 + 




Apple 11 + 


Victor do Br Aftil 


Elppe Jr 


Microcraft 


Crafl 11 Plos 


Brasil 


Apple II 4- 


■ 


Apple lie 


Microcrall 


CraM Me 


Micro era ft 


Cafllle 


Brasil 


Apple lie 




Apple He 


MIcrodlgilal 


TK-3000lle 


Mkrodlgital 


TK'3000ile 


Braall 


Apple llo 


^ 


Apple lie 


Spectrum 


Mlcroangenho 11 


Microdlgital 


TKS2C 


Brasil 


SlncialfZX-ai 1 




M3X 


Gradlenle 


Expert GPC-1 


Mlcrodigilal 


TK'83 


Brasil 


SinciairZX-ai ^ 




MSX 


Sharp 


HolbUHB'SlKH) 


Microdlgital 


TKSS 


Brasil 


Sinclair ZX-S1 




Sinclair Speclrum 


MIcrodlgltal 


TK-90X 


Microdlgital 


TK90X 


Brasil 


Sinclair Spectrum 




Sinclair Sped rum 


Timflji 


Tlmex20ClO 


Mlcrodigital 


TKS-BOO 


Brasil 


TRS-Color 1 




Sinclair ZXai 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11+ 1 




Sinclair ZX-ai 


Engebras 


AS-1000 


Mil mat 


Apple Master 


Brasil 


Apple 11+ 1 




SinclBlrZX-81 


Filcres 


NEZaOOO 


Milmar 


Apple Senior 


Braaii 


Apple 11 + 




Sinclair ZX-ei 


Microdi glial 


TK-fl2C 


MuiUx 


MX-Compacto 


Brasli 


TRS-80 ModJV I 




Sinclair ZXai 


MIcrodigtIal 


TK'B3 


Omega 


MC-4Q0 


Brasli 


Apple 11+ J 




StnclairZX-ei 


Mlcrodigilal 


TK'BS 


Polymax 


Maxxi 


Braaii 


Apple 11+ 1 




Sinclair ZX-ai 


Prologica 


CP-200 


Paly max 


Poly Plus 


Brasil 


Apple 11+ 1 




Sinclair ZX 81 


Ritas 


RlnaoH'470 


Prologica 


CP-200 


Braaii 


S1nclalrZX-8l 1 




Sinclair ZX-ai 


Timox 


TlmexlOOO 


Prologica 


CP'3O0 


Brasil 


TRS^aOModJIt 


r 
i 


Sinclair ZX SI 


Timflx 


Tlmex 1500 


Pfoiogica 


CP-400 


Braaii 


TRS-Color 




TRS^aOModJ 


Dl&mac 


D-8000 


Prologica 


CP'SOO 


Brasil 


TRS-aOMod,lll 




TRSBDModJ 


Diftmac 


0-6001/2 


Ritas 


Ringo 1^470 


Brasli 


Sinclair ZX-81 




TRS-fiO Mod. 1 


LNW 


LNW-BO 


Sharp 


HolbJt HB-6000 Brasil 


MSX 




TRS-BDModJ 


Video Gonle 


Video Genial 


Spectrum 


Mlcroengenho 


1 Brasil 


Apple 11 + 




TRS^aO Mod Jll 


Dlgllus 


OGT-TIKJ 


Spactrum 


Microengenho 


11 Braaii 


Apple No 


1 
i 


TRS-80 Mod.lll 


Digitus 


OGT'IOOO 


Spftctrum 


Speclrum ed 


Brasil 


Apple 11 + 




TRS-aOModJli 


Kern n ton 


NaJaaOO 


Su porta 


Venuail 


Braaii 


Appio 11 + 




TRS-BO Mod. Ill 


Prologica 


CP'300 


Sycofnig 


SIC] 


Brasil 


Apple 11+ ; 




TRSaO Mod Jll 


Prologica 


CP-SOO 


Sysdata 


Sy&data III 


Braaii 


TRS-60ModJII j 




TRs ao Mod Jll 


SyEdata 


Sysdala 111 


Sysdala 


Sysdata iV 


Brasil 


TRS-SOModJV J 




Tns-eoMod.iii 


Sysdota 


Sysdala Jr. 


Sysdala 


Syadata Jr. 


Brasil 


TRS-80 Mod.111 1 


1 


TRsao Mod.lV 


Mullk 


MX'Compacto 


TImex 


Timex 1000 


USA 


Slnciair2X-8l J 


r 


rns-eo Mod.iv 


Syadata 


Syadata IV 


TImex 


TlmaxlSOO 


USA 


SinclalrZX-ai ] 




TflS-Color 


Codlmex 


C8650B 


TImex 


Timex 2000 


USA 


Sinclair Spactrunil 




TRS'CoIOr 


Dyn acorn 


MX-16D0 


U nitron 


APII 


Brasil 


Appia|i + 




TRS-CoEor 


LZ 


Color S4 


Victor do Brasli 


EippallPius 


Brasil 


Apple 11 + 




TRS Color 


Microdlgital 


TK5-ai» 


Victor do Braall 


Elppe Jr. 


Brasil 


Apple 11 + 




TRS' Color 


Prologica 

1 


CP-400 


Video Qenia 


Video Genie 1 


USA 


TRS'BOModJ ■ 


1 INPUT foj especialmente projetado para 


_. 


1 


rf 


hHi 


1 




microcompuladores compatlve 




H..H TUS'SO L 


koZj TK 2aoa 


fhrimsx 






inhas exjstentes no mercado, 

]s blocos dfi textos e hstagens de programas aplicados ^^^ 






Kundo ««nblcm» lor segurda de uma 
vDLi, entlo tanio o kxto como os | 




1 


— -^ 


_ 


ipeoas a determinadas linhas de micros podem ser 
(ientiflcados por meio dos seguintes sfmbolos; 


wmuM spectrum 


Ul TRS-Calor L 


kJ Apple II 


programas que se seguem passani a sef 1 



IIIIIIIHNO PR6XIM0 NUMEROaHIIIIIIII 



APLICAQOES 

Um programa de referenda cruzada. Como utilizar Aplicacoes, 

SOFTWARE 

Sistemas de gerenciamento de bancos de dados. Importacao 

e exportacaa Chaves de acesso e de ordenacaa Saidas. 

PERIFERICOS 

Processamento de imagens: camara de video e dispositivos CCD. 

SUMARIO GERAL 

Rela^ao dos artigos, por titulos, das varias se^oes de INPUT. 



SUMARIO DOS OUADROS 

Temas Gerais, MIcrodicas, Perguntas 
e RespostSs. Tabelas. 



t(V0ORtS 



CURSO P«i^^^^^ 



PROGR 



-rag",;:.^! 



PROOR 



^^^^Q^o^''■ 



pROGRAf^ 



^c;^ooE 



jOGOS 







